[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 15/25: GOOPS class slot indices defined as inline values
From: |
Andy Wingo |
Subject: |
[Guile-commits] 15/25: GOOPS class slot indices defined as inline values |
Date: |
Mon, 19 Jan 2015 10:41:12 +0000 |
wingo pushed a commit to branch wip-goops-refactor
in repository guile.
commit 9ff09f61a6c3e1c13a123fa4a3ff4c0ca23614a1
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 70504eb..7605a58 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -210,8 +210,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)))
- [Guile-commits] 03/25: GOOPS utils module cleanups, (continued)
- [Guile-commits] 03/25: GOOPS utils module cleanups, Andy Wingo, 2015/01/19
- [Guile-commits] 04/25: Fold (oop goops util) into (oop goops), Andy Wingo, 2015/01/19
- [Guile-commits] 05/25: Scheme GOOPS cleanups, Andy Wingo, 2015/01/19
- [Guile-commits] 07/25: scm_make cleanup, Andy Wingo, 2015/01/19
- [Guile-commits] 06/25: Add compute-cpl tests, Andy Wingo, 2015/01/19
- [Guile-commits] 09/25: Commenting in goops.scm, Andy Wingo, 2015/01/19
- [Guile-commits] 08/25: Narrative reordering in goops.scm, Andy Wingo, 2015/01/19
- [Guile-commits] 11/25: when and unless for one-armed ifs in goops.scm, Andy Wingo, 2015/01/19
- [Guile-commits] 13/25: Convert emit-linear-dispatch to use match, Andy Wingo, 2015/01/19
- [Guile-commits] 14/25: `match' refactor in goops.scm, Andy Wingo, 2015/01/19
- [Guile-commits] 15/25: GOOPS class slot indices defined as inline values,
Andy Wingo <=
- [Guile-commits] 10/25: More GOOPS comments, Andy Wingo, 2015/01/19
- [Guile-commits] 17/25: slot-ref, slot-set! et al bypass "using-class" variants, Andy Wingo, 2015/01/19
- [Guile-commits] 18/25: change-object-class refactor, Andy Wingo, 2015/01/19
- [Guile-commits] 19/25: GOOPS: Deprecate "using-class" procs like slot-ref-using-class, Andy Wingo, 2015/01/19
- [Guile-commits] 12/25: More GOOPS cleanups, Andy Wingo, 2015/01/19
- [Guile-commits] 20/25: The GOOPS "unbound" value is a unique pair, Andy Wingo, 2015/01/19
- [Guile-commits] 16/25: Manipulate GOOPS vtable flags from Scheme, for speed, Andy Wingo, 2015/01/19
- [Guile-commits] 21/25: Beginnings of <slot> slot definition class, Andy Wingo, 2015/01/19
- [Guile-commits] 23/25: Use a vtable bit to mark <slot> instances, Andy Wingo, 2015/01/19
- [Guile-commits] 24/25: Add allocate-struct, struct-ref, struct-set! instructions, Andy Wingo, 2015/01/19