uplime/lamb
uplime
/
lamb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add helper bind function

This commit is contained in:
darkf 2013-10-20 16:32:23 -07:00
parent 314458e445
commit f138c7475b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
interp.hs
View File

@ -27,6 +27,9 @@ type InterpState = State ([Handle], Env) -- interpreter state (open handles, glo
lookup :: Env -> String -> Maybe Value
lookup env name = M.lookup name env
bind :: Env -> String -> Value -> Env
bind env name value = M.insert name value env
(IntV l) +$ (IntV r) = IntV (l + r)
(StrV l) +$ (StrV r) = StrV (l ++ r)
l +$ r = error $ "cannot + " ++ show l ++ " and " ++ show r
@ -81,8 +84,8 @@ eval (Var var) = get >>= \(_,env) ->
eval (Def name v') = do
v <- eval v'
(s,m) <- get
put (s, M.insert name v m)
(s,env) <- get
put (s, bind env name v)
return v
eval (Lambda pats) =