guix: records.scm: update from upstream.

* guile/guix/records.scm: Update from upstream.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-04 23:32:40 +02:00
parent 9c8e2dbd9f
commit 4986549f34

View file

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