Fixing bug in let-optionals option parsing.

This commit is contained in:
Alex Shinn 2015-06-11 22:52:50 +09:00
parent aeb881412c
commit ef1ae88b7a

View file

@ -528,7 +528,7 @@ div#footer {padding-bottom: 50px}
(let lp ((ls var) (vars vars) (i i)) (let lp ((ls var) (vars vars) (i i))
(cond (cond
((pair? ls) ((pair? ls)
(lp (cdr ls) (cons (cons (caar ls) i) vars) (+ i 1))) (lp (cdr ls) (cons (cons (car ls) i) vars) (+ i 1)))
(else (else
(extract body vars i))))) (extract body vars i)))))
(else (else