diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-16 10:20:17 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:03 +0100 |
commit | c2b61cf49ce56da2dce3d6da4c08c5a77c6a4cc5 (patch) | |
tree | f83cfcdfa304dc3d297af8af0a1c55fef7037aa8 | |
parent | 76d531c4f42390d33375cbb06f95bac077e309b2 (diff) | |
download | guile-c2b61cf49ce56da2dce3d6da4c08c5a77c6a4cc5.tar.gz |
GOOPS class slot indices defined as inline values
* module/oop/goops.scm (define-class-index): Define as inline values.
-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))) |