diff options
Diffstat (limited to 'src/guile/de-paul-records.scm')
| -rw-r--r-- | src/guile/de-paul-records.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/guile/de-paul-records.scm b/src/guile/de-paul-records.scm index 4b4e91b..5aa05f8 100644 --- a/src/guile/de-paul-records.scm +++ b/src/guile/de-paul-records.scm @@ -135,12 +135,11 @@ (#,(format-identifiers "~a-~a" record-name #'field-name) #,record-base)))))) - ((field-name #:-> value-update-expr) + ((field-name #:-> value-update-expr value-update-expr-rest ...) (identifier? #'field-name) (syntax->field-init #'(field-name #:=> (lambda (field-name) - value-update-expr)))))) - - + value-update-expr + value-update-expr-rest ...)))))) (define-immutable-record-type <record-init> (make-record-init) record-init? (inherit record-init-inherit record-init-set-inherit) |