Fix typos in previous commit.

* module/ice-9/boot-9.scm (record-modifier):
* module/rnrs/records/procedural.scm (make-record-type-descriptor): Fix
  typos.

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 23ba1da4f38a92d4cfa0a7c505b76c8d4e75b8a3..39efcb5e604e81b2f1fd461c1ab3a0057bc4ab4b 100644 (file)
--- 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 e5a154c298c26dfae525f8ac5071b1e1bef5c863..2463eee6f1985a2346a550908550f2e66b4f3b95 100644 (file)
--- 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)))))