mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

use common slots mechanism in ghil

Browse source 
* module/system/base/syntax.scm (define-type): Fix getter for common
  slot.

* module/language/ghil.scm (<ghil>): Use the common slots mechanism.
This commit is contained in:
Andy Wingo 2009-02-27 10:53:00 +01:00
parent 43e0c29305
commit 2c65f2d5a7
2 changed files with 27 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/base/syntax.scm
View file

@ -50,7 +50,7 @@
`(define (,(symbol-append (trim-brackets name)
'- common-slot)
x)
(struct-ref x i)))
(struct-ref x ,i)))
common-slots (iota (length common-slots)))))))