loop returns the last argument, not false

2013-10-27 02:02:41 -07:00 · 2013-10-27 02:02:41 -07:00 · 73d2d68cff
parent 1a449a536e
commit 73d2d68cff
1 changed files with 1 additions and 1 deletions
--- 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")]),