diff options
| author | W. Kosior <koszko@koszko.org> | 2024-07-27 22:18:45 +0200 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2024-07-27 22:18:45 +0200 |
| commit | dbb2a98e2a63a34ffe1e416835d9e6e7f137a214 (patch) | |
| tree | ea9cca23ea520722b5714d3b7e3184624a88a151 | |
| parent | 7dd9f1c93711bc8e099d932058357474956e2ee8 (diff) | |
| download | de-paul-records-dbb2a98e2a63a34ffe1e416835d9e6e7f137a214.tar.gz de-paul-records-dbb2a98e2a63a34ffe1e416835d9e6e7f137a214.zip | |
Revert "Add syntactic sugar for initializing fields with list-values."HEADapprentice
This reverts commit 96982196c4fae2b053f931b5988e52d7cf80fe45.
Rationale: that syntactic sugar is not really useful.
| -rw-r--r-- | src/guile/de-paul-records.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/guile/de-paul-records.scm b/src/guile/de-paul-records.scm index fddd1da..f45e6b4 100644 --- a/src/guile/de-paul-records.scm +++ b/src/guile/de-paul-records.scm @@ -141,12 +141,7 @@ (identifier? #'field-name) (syntax->field-init #'(field-name #:=> (lambda (field-name) value-update-expr - value-update-expr-rest ...)))) - - ((field-name #:list value-item-expr value-item-expr-rest ...) - (syntax->field-init #'(field-name - (list value-item-expr - value-item-expr-rest ...)))))) + value-update-expr-rest ...)))))) (define-immutable-record-type <record-init> (make-record-init) record-init? (inherit record-init-inherit record-init-set-inherit) |