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) | |
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 1f00e166030..c02395f2ae7 100644 --- a/guix/records.scm +++ b/guix/records.scm | |||
| @@ -81,7 +81,7 @@ fields, and DELAYED is the list of identifiers of delayed fields." | |||
| 81 | (record-error 'name s "extraneous field initializers ~a" | 81 | (record-error 'name s "extraneous field initializers ~a" |
| 82 | unexpected))) | 82 | unexpected))) |
| 83 | 83 | ||
| 84 | #`(make-struct type 0 | 84 | #`(make-struct/no-tail type |
| 85 | #,@(map (lambda (field index) | 85 | #,@(map (lambda (field index) |
| 86 | (or (field-inherited-value field) | 86 | (or (field-inherited-value field) |
| 87 | (if (innate-field? field) | 87 | (if (innate-field? field) |