[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] branch master updated: Fix typos in previous commit.

From: Andy Wingo
Subject: [Guile-commits] branch master updated: Fix typos in previous commit.
Date: Sun, 12 Jan 2020 16:03:25 -0500

This is an automated email from the git hooks/post-receive script.

wingo pushed a commit to branch master
in repository guile.

The following commit(s) were added to refs/heads/master by this push:
     new 4dd4d28  Fix typos in previous commit.
4dd4d28 is described below

commit 4dd4d286cc679fe05028ebcb9cbc93ca60b7d3fd
Author: Andy Wingo <address@hidden>
AuthorDate: Sun Jan 12 22:01:54 2020 +0100

    Fix typos in previous commit.
    * module/ice-9/boot-9.scm (record-modifier):
    * module/rnrs/records/procedural.scm (make-record-type-descriptor): Fix
 module/ice-9/boot-9.scm            | 2 +-
 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 23ba1da..39efcb5 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 
index e5a154c..2463eee 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? 

reply via email to

[Prev in Thread] Current Thread [Next in Thread]