conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[bugfix] do's condition was broken

This commit is contained in:
Yuichi Nishiwaki 2013-11-14 17:57:56 +09:00
parent 1b7774eec8
commit 4d6c2d99fe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/built-in.scm
View File

@ -264,13 +264,13 @@
(list (car x) (cadr x))) (list (car x) (cadr x)))
bindings) bindings)
(if ,(car finish) (if ,(car finish)
(begin ,@(cdr finish))
(begin ,@body (begin ,@body
(loop ,@(map (lambda (x) (loop ,@(map (lambda (x)
(if (null? (cddr x)) (if (null? (cddr x))
(car x) (car x)
(car (cddr x)))) (car (cddr x))))
bindings)))))) bindings)))
(begin ,@(cdr finish)))))
;;; 6.2. Numbers ;;; 6.2. Numbers