Fixed let-optionals* in structure slow-simple-let-opt which caused the
macro to loop endlessly
This commit is contained in:
parent
6dcdd107e0
commit
a1b0768745
|
@ -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.)
|
||||||
|
|
Loading…
Reference in New Issue