Travis: comment out self-host tests in master.

[jackhill/mal.git] / miniMAL / step5_tco.json

diff --git a/miniMAL/step5_tco.json b/miniMAL/step5_tco.json
index 6f7e714..06fd342 100644 (file)
--- a/miniMAL/step5_tco.json
+++ b/miniMAL/step5_tco.json
@@ -14,7 +14,17 @@
     ["env-get", "env", "ast"],
   ["if", ["list?", "ast"],
     ["map", ["fn", ["x"], ["EVAL", "x", "env"]], "ast"],
-  "ast"]]]],
+  ["if", ["vector?", "ast"],
+    ["vectorl", ["map", ["fn", ["x"], ["EVAL", "x", "env"]], "ast"]],
+  ["if", ["map?", "ast"],
+    ["let", ["new-hm", ["hash-map"]],
+      ["do",
+        ["map", ["fn", ["k"], ["set", "new-hm",
+                                ["EVAL", "k", "env"],
+                                ["EVAL", ["get", "ast", "k"], "env"]]],
+                ["keys", "ast"]],
+        "new-hm"]],
+  "ast"]]]]]],
 
 ["def", "LET", ["fn", ["env", "args"],
   ["if", [">", ["count", "args"], 0],