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 | |
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.
-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) |