diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/ice-9/boot-9.scm | 2 | ||||
-rw-r--r-- | module/rnrs/records/procedural.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 23ba1da4f..39efcb5e6 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -1234,7 +1234,7 @@ VALUE." (else (error 'no-such-field field-name-or-idx)))) (pred (record-predicate rtd))) (unless (logbit? pos (record-type-mutable-fields rtd)) - (error "field is immutable" rtd field-name)) + (error "field is immutable" rtd field-name-or-idx)) (lambda (obj val) (unless (pred obj) (scm-error 'wrong-type-arg "record-modifier" diff --git a/module/rnrs/records/procedural.scm b/module/rnrs/records/procedural.scm index e5a154c29..2463eee6f 100644 --- a/module/rnrs/records/procedural.scm +++ b/module/rnrs/records/procedural.scm @@ -53,7 +53,7 @@ (define (make-record-type-descriptor name parent uid sealed? opaque? fields) (make-record-type name (vector->list fields) #:parent parent #:uid uid #:extensible? (not sealed?) - #:allow-duplicate-field-names #t + #:allow-duplicate-field-names? #t #:opaque? (or opaque? (and parent (record-type-opaque? parent))))) |