summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/srfi/srfi-9.scm4
-rw-r--r--test-suite/tests/srfi-9.test2
2 files changed, 6 insertions, 0 deletions
diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm
index 39f4e34e5..80c3b60e8 100644
--- a/module/srfi/srfi-9.scm
+++ b/module/srfi/srfi-9.scm
@@ -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)
diff --git a/test-suite/tests/srfi-9.test b/test-suite/tests/srfi-9.test
index a645ddc09..cf933a894 100644
--- a/test-suite/tests/srfi-9.test
+++ b/test-suite/tests/srfi-9.test
@@ -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!))