summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-01-12 22:01:54 +0100
committerAndy Wingo <wingo@pobox.com>2020-01-12 22:01:54 +0100
commit4dd4d286cc679fe05028ebcb9cbc93ca60b7d3fd (patch)
tree2041c4d789130db1aef26f20286df77ecfd89d34 /module
parent86a9f9a27176968bbae46aceed114634ca7c693e (diff)
downloadguile-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.scm2
-rw-r--r--module/rnrs/records/procedural.scm2
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)))))