Merge pull request #377 from asarhaddon/fix-runtests-pre-eval

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

diff --git a/miniMAL/step2_eval.json b/miniMAL/step2_eval.json
index ee95fe2..cc16f63 100644 (file)
--- a/miniMAL/step2_eval.json
+++ b/miniMAL/step2_eval.json
@@ -1,9 +1,9 @@
 ["do",
 
-["load-file", ["`", "miniMAL-core.json"]],
-["load-file", ["`", "types.json"]],
-["load-file", ["`", "reader.json"]],
-["load-file", ["`", "printer.json"]],
+["load", ["`", "miniMAL-core.json"]],
+["load", ["`", "types.json"]],
+["load", ["`", "reader.json"]],
+["load", ["`", "printer.json"]],
 
 ["def", "READ", ["fn", ["strng"],
   ["read-str", "strng"]]],
@@ -31,10 +31,12 @@
 ["def", "EVAL", ["fn", ["ast", "env"],
   ["if", ["not", ["list?", "ast"]],
         ["eval-ast", "ast", "env"],
-        ["let", ["el", ["eval-ast", "ast", "env"],
-                 "f", ["first", "el"],
-                 "args", ["rest", "el"]],
-          ["apply", "f", "args"]]]]],
+        ["if", ["empty?", "ast"],
+          "ast",
+          ["let", ["el", ["eval-ast", "ast", "env"],
+                   "f", ["first", "el"],
+                   "args", ["rest", "el"]],
+            ["apply", "f", "args"]]]]]],
 
 ["def", "PRINT", ["fn", ["exp"],
   ["pr-str", "exp", true]]],