[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
srfi-31 rec error
From: |
Kevin Ryde |
Subject: |
srfi-31 rec error |
Date: |
Fri, 27 Aug 2004 11:17:51 +1000 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) |
* srfi-31.scm (rec): Add missing `error' to else clause.
Currently a bogus usage like "(rec #:foo)" results in an infinite
macro expansion loop (because the define-macro returns the same rec
form as it was given). I'm assuming the message string is meant to be
part of an error call.
--- srfi-31.scm.~1.3.~ 2004-07-05 09:59:56.000000000 +1000
+++ srfi-31.scm 2004-08-26 17:23:17.000000000 +1000
@@ -31,4 +31,5 @@
((list? arg-form)
`(letrec ((,(car arg-form) (lambda ,(cdr arg-form) ,@body)))
,(car arg-form)))
- (else "syntax error in rec form" `(rec ,arg-form ,@body))))
+ (else
+ (error "syntax error in rec form" `(rec ,arg-form ,@body)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- srfi-31 rec error,
Kevin Ryde <=