diff options
author | Andy Wingo <wingo@pobox.com> | 2020-01-12 22:01:54 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-01-12 22:01:54 +0100 |
commit | 4dd4d286cc679fe05028ebcb9cbc93ca60b7d3fd (patch) | |
tree | 2041c4d789130db1aef26f20286df77ecfd89d34 /module | |
parent | 86a9f9a27176968bbae46aceed114634ca7c693e (diff) | |
download | guile-4dd4d286cc679fe05028ebcb9cbc93ca60b7d3fd.tar.gz |
Fix typos in previous commit.
* module/ice-9/boot-9.scm (record-modifier):
* module/rnrs/records/procedural.scm (make-record-type-descriptor): Fix
typos.
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))))) |