Fixed let-optionals* in structure slow-simple-let-opt which caused the

macro to loop endlessly
This commit is contained in:
eknauel 2003-02-18 13:12:08 +00:00
parent 6dcdd107e0
commit a1b0768745
1 changed files with 1 additions and 1 deletions

View File

@ -521,7 +521,7 @@
(syntax-rules () (syntax-rules ()
((let-optionals* arg (opt-clause ...) body ...) ((let-optionals* arg (opt-clause ...) body ...)
(let ((rest arg)) (let ((rest arg))
(let-optionals* rest (opt-clause ...) body ...))))) (%let-optionals* rest (opt-clause ...) body ...)))))
;;; The arg-list expression *must* be a variable. ;;; The arg-list expression *must* be a variable.
;;; (Or must be side-effect-free, in any event.) ;;; (Or must be side-effect-free, in any event.)