diff options
Diffstat (limited to 'module/srfi/srfi-9/gnu.scm')
-rw-r--r-- | module/srfi/srfi-9/gnu.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/srfi/srfi-9/gnu.scm b/module/srfi/srfi-9/gnu.scm index fa091fe86..4f3a6634c 100644 --- a/module/srfi/srfi-9/gnu.scm +++ b/module/srfi/srfi-9/gnu.scm @@ -34,7 +34,9 @@ (struct-set! type vtable-index-printer thunk)) (define-syntax-rule (define-immutable-record-type name ctor pred fields ...) - ((@@ (srfi srfi-9) %define-record-type) #t name ctor pred fields ...)) + ((@@ (srfi srfi-9) %define-record-type) + #t (define-immutable-record-type name ctor pred fields ...) + name ctor pred fields ...)) (define-syntax-rule (set-field (getter ...) s expr) (%set-fields #t (set-field (getter ...) s expr) () |