guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 44/61: GOOPS class slot indices defined as inline values


From: Andy Wingo
Subject: [Guile-commits] 44/61: GOOPS class slot indices defined as inline values
Date: Thu, 22 Jan 2015 18:53:16 +0000

wingo pushed a commit to branch wip-goops-refactor
in repository guile.

commit f7dccd37428bdb272d18e160903a2122d90020dc
Author: Andy Wingo <address@hidden>
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)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]