diff options
Diffstat (limited to 'module/srfi/srfi-9.scm')
-rw-r--r-- | module/srfi/srfi-9.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm index aee8be01c..58b588b00 100644 --- a/module/srfi/srfi-9.scm +++ b/module/srfi/srfi-9.scm @@ -320,7 +320,10 @@ '#,(datum->syntax #'here (make-struct-layout layout)) default-record-printer 'type-name - '#,field-ids))) + '#,field-ids + #f ; Constructor. + '(final) ; Flags. + #()))) ; Parents. (set-struct-vtable-name! rtd 'type-name) (struct-set! rtd (+ 2 vtable-offset-user) #,ctor-name) rtd)) |