mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Remove extra 'error' call in 'make-record-type'.

Browse source 
* module/ice-9/boot-9.scm (make-record-type)[computed-fields]: Remove
extra 'error' call.
This commit is contained in:
Ludovic Courtès 2020-03-06 17:59:51 +01:00
parent d49453259b
commit 8a25546a94
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1082,7 +1082,7 @@ VALUE."
(memq (car field) '(mutable immutable)) (memq (car field) '(mutable immutable))
(pair? (cdr field)) (pair? (cdr field))
(null? (cddr field))) (null? (cddr field)))
(error (error "bad field declaration" field))) (error "bad field declaration" field))
(cadr field)))) (cadr field))))
fields))) fields)))
(check-fields fields) (check-fields fields)