diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-12-01 18:09:22 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-12-01 18:47:34 +0100 |
| commit | cea25b08bfd22bda940e5ac7ea29d4fa035d8303 (patch) | |
| tree | 04bd61683740bfd9e124ddd6670fe8ab4a64f9d1 | |
| parent | 2e7825bc7b73f6634724ffeb104a6a98d430c5ab (diff) | |
| download | guix-cea25b08bfd22bda940e5ac7ea29d4fa035d8303.tar guix-cea25b08bfd22bda940e5ac7ea29d4fa035d8303.tar.gz | |
records: Use 'make-struct/no-tail'.
* guix/records.scm (make-syntactic-constructor): Use
'make-struct/no-tail' as 'make-struct' is deprecated as of 2.2.3.
| -rw-r--r-- | guix/records.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/records.scm b/guix/records.scm index 1f00e16603..c02395f2ae 100644 --- a/guix/records.scm +++ b/guix/records.scm @@ -81,7 +81,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) |