wingo pushed a commit to branch master
in repository guile.
commit c2b61cf49ce56da2dce3d6da4c08c5a77c6a4cc5
Author: Andy Wingo <[email protected]>
Date: Fri Jan 16 10:20:17 2015 +0100
GOOPS class slot indices defined as inline values
* module/oop/goops.scm (define-class-index): Define as inline values.
---
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 3c5b688..41b4226 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)))
