add evaluation of blocks

2013-10-20 16:04:56 -07:00 · 2013-10-20 16:04:56 -07:00 · fa5783b6e1
parent f7ea85f08f
commit fa5783b6e1
1 changed files with 2 additions and 0 deletions
--- a/interp.hs
+++ b/interp.hs
@ -63,6 +63,8 @@ eval (StrConst s) = return $ StrV s

 eval UnitConst = return UnitV

+eval (Block body) = foldr1 (>>) $ map eval body
+
 eval (ListConst v) =
 	mapM eval v >>= \xs ->
 		return $ ListV xs