summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/oop/goops.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index 3c5b68879..41b422686 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -211,8 +211,8 @@
(syntax-case x ()
((_ (name . _) tail)
#`(begin
- (define #,(id-append #'name #'class-index- #'name)
- #,(tail-length #'tail))
+ (define-syntax #,(id-append #'name #'class-index- #'name)
+ (identifier-syntax #,(tail-length #'tail)))
tail))))))
(fold-class-slots macro-fold-left define-class-index (begin)))