From a85db6aca767522f8048547eaad3de5e1218c04d Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Tue, 17 Dec 2013 00:56:46 -0800
Subject: [PATCH] clean up _Import

---
 Interp.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Interp.hs b/Interp.hs
index 925d727..2d94976 100644
--- a/Interp.hs
+++ b/Interp.hs
@@ -206,9 +206,7 @@ _Import (StrV modname) = do
 	(_,[modenv]) <- get -- get the module env
 	let (_, [initialEnv]) = initialState
 	let modenv' = M.difference modenv initialEnv -- subtract prelude stuff
-	-- convert String to StrV in env keys
-	let modenv'' = map (\(k,v) -> (StrV k, v)) $ M.toAscList modenv'
-	let mod = DictV (M.fromAscList modenv'') -- package module into a dict
+	let mod = toDict modenv'
 	let env' = bind env modname mod -- bind it
 	put (h,env') -- restore state
 	return mod -- return module value