From 98305cd6d0e2d43211e055931b9b2db1ef812965 Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Sun, 20 Oct 2013 18:45:23 -0700
Subject: [PATCH] fix pattern bindings preferring the old environment

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

diff --git a/interp.hs b/interp.hs
index 36da3db..6a0ba3c 100644
--- 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