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

Fix SRFI-9 for records without fields

Browse source 
* module/srfi/srfi-9.scm (define-record-type): Deal with fieldless records.
* test-suite/tests/srfi-9.test: Add a fieldless record definition.
This commit is contained in:
Andreas Rottmann 2010-06-19 14:52:56 +02:00 • committed by Andy Wingo
parent b1e5445f77
commit c4a8200fa0
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/srfi/srfi-9.scm
View file

@ -95,6 +95,8 @@
(lambda (x)
(define (field-identifiers field-specs)
(syntax-case field-specs ()
(()
'())
((field-spec)
(syntax-case #'field-spec ()
((name accessor) #'(name))
@ -138,6 +140,8 @@
(define (accessors type-name field-specs indices)
(syntax-case field-specs ()
(()
#'())
((field-spec)
(syntax-case #'field-spec ()
((name accessor)

2
test-suite/tests/srfi-9.test
View file

@ -23,6 +23,8 @@
#:use-module (srfi srfi-9))
(define-record-type :qux (make-qux) qux?)
(define-record-type :foo (make-foo x) foo?
(x get-x) (y get-y set-y!))