| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/ataxic.erl')
| -rw-r--r-- | src/ataxic.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/ataxic.erl b/src/ataxic.erl index bb9e561..2993639 100644 --- a/src/ataxic.erl +++ b/src/ataxic.erl @@ -155,7 +155,9 @@ apply_basic_to (#letr{ bindings = Bindings, op = OP }, Val, S0Mem) -> S1Mem = lists:foldl ( - fun ({Key, Value}, Memory) -> dict:store(Key, Value, Memory) end, + fun ({Key, Value}, Memory) -> + dict:store(Key, apply_basic_to(Value, Val, Memory), Memory) + end, S0Mem, Bindings ), |