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/ice-9/boot-9.scm | |
| 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/ice-9/boot-9.scm')
| -rw-r--r-- | module/ice-9/boot-9.scm | 2 |
1 files changed, 1 insertions, 1 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" |