From a1b0768745eb16e16ddfce12f05a2756fa869a11 Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 18 Feb 2003 13:12:08 +0000 Subject: [PATCH] Fixed let-optionals* in structure slow-simple-let-opt which caused the macro to loop endlessly --- scsh/let-opt.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/let-opt.scm b/scsh/let-opt.scm index d334893..0d7af88 100644 --- a/scsh/let-opt.scm +++ b/scsh/let-opt.scm @@ -521,7 +521,7 @@ (syntax-rules () ((let-optionals* arg (opt-clause ...) body ...) (let ((rest arg)) - (let-optionals* rest (opt-clause ...) body ...))))) + (%let-optionals* rest (opt-clause ...) body ...))))) ;;; The arg-list expression *must* be a variable. ;;; (Or must be side-effect-free, in any event.)