From 73d2d68cff4a4c9be5b62c2849c2c68f8815d8ac Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Sun, 27 Oct 2013 02:02:41 -0700
Subject: [PATCH] loop returns the last argument, not false

---
 interp.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interp.hs b/interp.hs
index 8c20b74..24d779a 100644
--- a/interp.hs
+++ b/interp.hs
@@ -151,7 +151,7 @@ _loop args@(TupleV [fn@(FnV _ _), arg]) = do
 	v <- apply fn arg
 	if v /= BoolV False then
 		_loop $ TupleV [fn, v]
-	else return v
+	else return arg
 
 initialState = ([stdout, stdin],
 					[M.fromList [("id", FnV emptyEnv [(VarP "x", Var "x")]),