From 7ebf5219e1be21ed10cecabda8262c77da7465ae Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Thu, 12 Feb 2015 01:11:50 -0600 Subject: miniMAL: add step4 (without functions). --- miniMAL/env.json | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'miniMAL/env.json') diff --git a/miniMAL/env.json b/miniMAL/env.json index 30ab952..0dfa67b 100644 --- a/miniMAL/env.json +++ b/miniMAL/env.json @@ -7,7 +7,7 @@ ["get", ["first", "b"], ["`", "val"]]], ["assoc!", "env", ["get", ["nth", "b", 1], ["`", "val"]], "e"], ["env-bind", ["assoc!", "env", ["get", ["first", "b"], ["`", "val"]], - ["get", ["first", "e"], ["`", "val"]]], + ["first", "e"]], ["rest", "b"], ["rest", "e"]]]]]], @@ -15,7 +15,7 @@ ["let", ["env", ["hash-map", ["`", "__outer__"], ["first", "args"]]], ["if", ["<=", ["count", "args"], 1], "env", - ["bind-env", "env", ["get", "args", 1], ["get", "args", 2]]]]]], + ["env-bind", "env", ["get", "args", 1], ["get", "args", 2]]]]]], ["def", "env-find", ["fn", ["env", "key"], ["let", ["k", ["get", "key", ["`", "val"]]], -- cgit v1.2.3