summaryrefslogtreecommitdiff
path: root/module/system/base/syntax.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-02-27 10:53:00 +0100
committerAndy Wingo <wingo@pobox.com>2009-02-27 10:53:00 +0100
commit2c65f2d5a7b5f6e75179d66c32c1de5380b334cc (patch)
treebe3314a2221cbc375d9d58057aa191b299d48fb4 /module/system/base/syntax.scm
parent43e0c29305b0c60f866f0852643f0ad9385537ae (diff)
downloadguile-2c65f2d5a7b5f6e75179d66c32c1de5380b334cc.tar.gz
use common slots mechanism in ghil
* module/system/base/syntax.scm (define-type): Fix getter for common slot. * module/language/ghil.scm (<ghil>): Use the common slots mechanism.
Diffstat (limited to 'module/system/base/syntax.scm')
-rw-r--r--module/system/base/syntax.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm
index 4382a8e66..35748bb79 100644
--- a/module/system/base/syntax.scm
+++ b/module/system/base/syntax.scm
@@ -50,7 +50,7 @@
`(define (,(symbol-append (trim-brackets name)
'- common-slot)
x)
- (struct-ref x i)))
+ (struct-ref x ,i)))
common-slots (iota (length common-slots)))))))