["def", "READ", ["fn", ["strng"], ["read-str", "strng"]]],
["def", "pair?", ["fn", ["x"],
- ["if", ["list?", "x"],
+ ["if", ["sequential?", "x"],
["if", [">", ["count", "x"], 0], true, false],
false]]],
["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],
["def", "EVAL", ["fn", ["ast", "env"],
["if", ["not", ["list?", "ast"]],
- ["eval-ast", "ast", "env"],
- ["let", ["a0", ["get", ["first", "ast"], ["`", "val"]]],
- ["if", ["=", ["`", "def!"], "a0"],
- ["env-set", "env", ["nth", "ast", 1],
- ["EVAL", ["nth", "ast", 2], "env"]],
- ["if", ["=", ["`", "let*"], "a0"],
- ["let", ["let-env", ["env-new", "env"]],
- ["do",
- ["LET", "let-env", ["nth", "ast", 1]],
- ["EVAL", ["nth", "ast", 2], "let-env"]]],
- ["if", ["=", ["`", "quote"], "a0"],
- ["nth", "ast", 1],
- ["if", ["=", ["`", "quasiquote"], "a0"],
- ["EVAL", ["quasiquote", ["nth", "ast", 1]], "env"],
- ["if", ["=", ["`", "do"], "a0"],
- ["do",
- ["eval-ast", ["slice", "ast", 1, ["-", ["count", "ast"], 1]], "env"],
- ["EVAL", ["nth", "ast", ["-", ["count", "ast"], 1]], "env"]],
- ["if", ["=", ["`", "if"], "a0"],
- ["let", ["cond", ["EVAL", ["nth", "ast", 1], "env"]],
- ["if", ["or", ["=", "cond", null], ["=", "cond", false]],
- ["if", [">", ["count", "ast"], 3],
- ["EVAL", ["nth", "ast", 3], "env"],
- null],
- ["EVAL", ["nth", "ast", 2], "env"]]],
- ["if", ["=", ["`", "fn*"], "a0"],
- ["malfunc",
- ["fn", ["&", "args"],
- ["let", ["e", ["env-new", "env", ["nth", "ast", 1], "args"]],
- ["EVAL", ["nth", "ast", 2], "e"]]],
- ["nth", "ast", 2], "env", ["nth", "ast", 1]],
- ["let", ["el", ["eval-ast", "ast", "env"],
- "f", ["first", "el"],
- "args", ["rest", "el"]],
- ["if", ["malfunc?", "f"],
- ["EVAL", ["get", "f", ["`", "ast"]],
- ["env-new", ["get", "f", ["`", "env"]],
- ["get", "f", ["`", "params"]],
- "args"]],
- ["apply", "f", "args"]]]]]]]]]]]]]],
+ ["eval-ast", "ast", "env"],
+ ["let", ["a0", ["get", ["first", "ast"], ["`", "val"]]],
+ ["if", ["=", ["`", "def!"], "a0"],
+ ["env-set", "env", ["nth", "ast", 1],
+ ["EVAL", ["nth", "ast", 2], "env"]],
+ ["if", ["=", ["`", "let*"], "a0"],
+ ["let", ["let-env", ["env-new", "env"]],
+ ["do",
+ ["LET", "let-env", ["nth", "ast", 1]],
+ ["EVAL", ["nth", "ast", 2], "let-env"]]],
+ ["if", ["=", ["`", "quote"], "a0"],
+ ["nth", "ast", 1],
+ ["if", ["=", ["`", "quasiquote"], "a0"],
+ ["EVAL", ["quasiquote", ["nth", "ast", 1]], "env"],
+ ["if", ["=", ["`", "do"], "a0"],
+ ["do",
+ ["eval-ast", ["slice", "ast", 1, ["-", ["count", "ast"], 1]], "env"],
+ ["EVAL", ["nth", "ast", ["-", ["count", "ast"], 1]], "env"]],
+ ["if", ["=", ["`", "if"], "a0"],
+ ["let", ["cond", ["EVAL", ["nth", "ast", 1], "env"]],
+ ["if", ["or", ["=", "cond", null], ["=", "cond", false]],
+ ["if", [">", ["count", "ast"], 3],
+ ["EVAL", ["nth", "ast", 3], "env"],
+ null],
+ ["EVAL", ["nth", "ast", 2], "env"]]],
+ ["if", ["=", ["`", "fn*"], "a0"],
+ ["malfunc",
+ ["fn", ["&", "args"],
+ ["let", ["e", ["env-new", "env", ["nth", "ast", 1], "args"]],
+ ["EVAL", ["nth", "ast", 2], "e"]]],
+ ["nth", "ast", 2], "env", ["nth", "ast", 1]],
+ ["let", ["el", ["eval-ast", "ast", "env"],
+ "f", ["first", "el"],
+ "args", ["rest", "el"]],
+ ["if", ["malfunc?", "f"],
+ ["EVAL", ["get", "f", ["`", "ast"]],
+ ["env-new", ["get", "f", ["`", "env"]],
+ ["get", "f", ["`", "params"]],
+ "args"]],
+ ["apply", "f", "args"]]]]]]]]]]]]]],
["def", "PRINT", ["fn", ["exp"],
["pr-str", "exp", true]]],