From be2e04aac78b04b4f016c3e0920388bd5c7f5ac6 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Mon, 21 Oct 2019 21:48:00 +0200
Subject: Fixes apply('bind'), optimizes 'bind', 'ternary'.

---
 src/ataxic.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/ataxic.erl')

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
       ),
-- 
cgit v1.2.3-70-g09d2