diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-06 17:59:51 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-06 18:07:06 +0100 |
| commit | 8a25546a9458b8416d80bb80f925d0c1f11ec197 (patch) | |
| tree | 2e48039f704d26f7b0ece7146e358dd2b9869839 /module/ice-9/boot-9.scm | |
| parent | d49453259bf97aed6d7e41d1bb364b62310c088f (diff) | |
| download | guile-8a25546a9458b8416d80bb80f925d0c1f11ec197.tar.gz | |
Remove extra 'error' call in 'make-record-type'.
* module/ice-9/boot-9.scm (make-record-type)[computed-fields]: Remove
extra 'error' call.
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 39efcb5e6..004d13937 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -1082,7 +1082,7 @@ VALUE." (memq (car field) '(mutable immutable)) (pair? (cdr field)) (null? (cddr field))) - (error (error "bad field declaration" field))) + (error "bad field declaration" field)) (cadr field)))) fields))) (check-fields fields) |