mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +02:00
Code Activity

(rec): Add missing `error' to else clause.

Browse source 
And fix heading comment.
This commit is contained in:
Kevin Ryde 2004-08-27 01:25:51 +00:00
parent 830ea8d039
commit 56d545b793
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/srfi-31.scm
View file

@ -1,4 +1,4 @@
;;; srfi-34.scm --- Time/Date Library ;;; srfi-31.scm --- special form for recursive evaluation
;; Copyright (C) 2004 Free Software Foundation, Inc. ;; Copyright (C) 2004 Free Software Foundation, Inc.
;; ;;
@ -54,4 +54,5 @@
((list? arg-form) ((list? arg-form)
`(letrec ((,(car arg-form) (lambda ,(cdr arg-form) ,@body))) `(letrec ((,(car arg-form) (lambda ,(cdr arg-form) ,@body)))
,(car arg-form))) ,(car arg-form)))
(else "syntax error in rec form" `(rec ,arg-form ,@body)))) (else
(error "syntax error in rec form" `(rec ,arg-form ,@body)))))