fix pattern bindings preferring the old environment

2013-10-20 18:45:23 -07:00 · 2013-10-20 18:45:23 -07:00 · 98305cd6d0
parent dcb52ad6eb
commit 98305cd6d0
1 changed files with 1 additions and 1 deletions
--- a/interp.hs
+++ b/interp.hs
@ -186,7 +186,7 @@ apply (FnV pats) arg =
 				Just env' -> -- satisfies
 					do
 						(s,env) <- get
-						put (s, M.union env env')
+						put (s, M.union env' env)
 						foldr1 (>>) $ map eval body
 				Nothing -> -- doesn't satisfy this pattern
 					apply' xs