From 4d6c2d99fe589740d0981bf1461f38ea54ce3522 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 14 Nov 2013 17:57:56 +0900
Subject: [PATCH] [bugfix] do's condition was broken

---
 piclib/built-in.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index f964edcf..42d71cb4 100644
--- 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