pl/bc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

eval: fixed first state forgetfulness issue (the prior commit didnt really fix it)

Browse Source
This commit is contained in:
Veit Heller
2017-05-22 18:58:42 -04:00
parent 545d2896a1
commit c5edf4854f
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/BC/Eval.hs
View File

@@ -137,10 +137,10 @@ funCall state (BFun name args body) provided =
in callWith (M.insert a evald nstate) args provided in callWith (M.insert a evald nstate) args provided
funCall state (BNative body) provided = funCall state (BNative body) provided =
let (args, nstate) = callWith state provided let (args, nstate) = callWith state provided
in (body args, state) in (body args, nstate)
-- TODO: make tail recursive with accumulator -- TODO: make tail recursive with accumulator
where callWith state [] = (state, []) where callWith state [] = ([], state)
callWith state (x:xs) = callWith state (x:xs) =
let (evald, nstate) = eval state x let (evald, nstate) = eval state x
(retstate, l) = callWith nstate xs (l, retstate) = callWith nstate xs
in (retstate, evald:l) in (evald:l, retstate)