summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-9.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/srfi/srfi-9.scm')
-rw-r--r--module/srfi/srfi-9.scm5
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))