diff --git a/guile/guix/records.scm b/guile/guix/records.scm index 7de5fcce..a019373b 100644 --- a/guile/guix/records.scm +++ b/guile/guix/records.scm @@ -80,7 +80,7 @@ fields, and DELAYED is the list of identifiers of delayed fields." (record-error 'name s "extraneous field initializers ~a" unexpected))) - #`(make-struct type 0 + #`(make-struct/no-tail type #,@(map (lambda (field index) (or (field-inherited-value field) (if (innate-field? field)