[bugfix] do's condition was broken

2013-11-14 17:57:56 +09:00 · 2013-11-14 17:57:56 +09:00 · 4d6c2d99fe
parent 1b7774eec8
commit 4d6c2d99fe
1 changed files with 2 additions and 2 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -264,13 +264,13 @@
 		     (list (car x) (cadr x)))
 		   bindings)
     (if ,(car finish)
-	 (begin ,@(cdr finish))
 	 (begin ,@body
 		(loop ,@(map (lambda (x)
 			       (if (null? (cddr x))
 				   (car x)
 				   (car (cddr x))))
-			     bindings))))))
+			     bindings)))
+	 (begin ,@(cdr finish)))))

 ;;; 6.2. Numbers