diff options
Diffstat (limited to 'module/srfi/srfi-9.scm')
-rw-r--r-- | module/srfi/srfi-9.scm | 4 |
1 files changed, 4 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) |