mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix typos in previous commit.

Browse source 
* module/ice-9/boot-9.scm (record-modifier):
* module/rnrs/records/procedural.scm (make-record-type-descriptor): Fix
  typos.
This commit is contained in:
Andy Wingo 2020-01-12 22:01:54 +01:00
parent 86a9f9a271
commit 4dd4d286cc
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -1234,7 +1234,7 @@ VALUE."
(else (error 'no-such-field field-name-or-idx)))) (else (error 'no-such-field field-name-or-idx))))
(pred (record-predicate rtd))) (pred (record-predicate rtd)))
(unless (logbit? pos (record-type-mutable-fields 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) (lambda (obj val)
(unless (pred obj) (unless (pred obj)
(scm-error 'wrong-type-arg "record-modifier" (scm-error 'wrong-type-arg "record-modifier"

2
module/rnrs/records/procedural.scm
View file

@ -53,7 +53,7 @@
(define (make-record-type-descriptor name parent uid sealed? opaque? fields) (define (make-record-type-descriptor name parent uid sealed? opaque? fields)
(make-record-type name (vector->list fields) #:parent parent #:uid uid (make-record-type name (vector->list fields) #:parent parent #:uid uid
#:extensible? (not sealed?) #:extensible? (not sealed?)
#:allow-duplicate-field-names #t #:allow-duplicate-field-names? #t
#:opaque? (or opaque? #:opaque? (or opaque?
(and parent (record-type-opaque? parent))))) (and parent (record-type-opaque? parent)))))