diff options
-rw-r--r-- | module/oop/goops.scm | 4 |
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))) |