From 7179a6d818ebafdca2166d0503f8570785f9f9ef Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Tue, 17 Mar 2015 00:54:31 -0700
Subject: [PATCH] Interp: don't remove prelude from modules; add
 patternBindings error

---
 Interp.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Interp.hs b/Interp.hs
index a6a413d..a4d4bd8 100644
--- a/Interp.hs
+++ b/Interp.hs
@@ -233,8 +233,8 @@ _Import (StrV modname) = do
 	evalFile path -- evaluate the module file
 	[modenv] <- get -- get the module env
 	let [initialEnv] = initialState
-	let modenv' = M.difference modenv initialEnv -- subtract prelude stuff
-	let mod = toDict modenv'
+	--let modenv' = M.difference modenv initialEnv -- subtract prelude stuff
+	let mod = toDict modenv
 	let env' = bind env (T.pack modname) mod -- bind it
 	put env' -- restore state
 	return mod -- return module value
@@ -456,6 +456,8 @@ patternBindings (TupleP (x:xs)) (TupleV (y:ys)) =
 		Just $ M.union env' env
 patternBindings (TupleP _) _ = Nothing -- not a tuple
 
+patternBindings p x = error $ "patternBindings failure: matching " ++ show x ++ " with pattern " ++ show p
+
 -- applies a function
 apply :: Value -> Value -> InterpState Value
 apply (FnV _ pats) arg =