2015-02-12 06:56:47 +03:00
|
|
|
["do",
|
|
|
|
|
2017-02-11 07:19:55 +03:00
|
|
|
["load", ["`", "miniMAL-core.json"]],
|
|
|
|
["load", ["`", "types.json"]],
|
|
|
|
["load", ["`", "reader.json"]],
|
|
|
|
["load", ["`", "printer.json"]],
|
2015-02-12 06:56:47 +03:00
|
|
|
|
|
|
|
["def", "READ", ["fn", ["strng"],
|
|
|
|
["read-str", "strng"]]],
|
|
|
|
|
|
|
|
["def", "EVAL", ["fn", ["ast", "env"],
|
|
|
|
"ast"]],
|
|
|
|
|
|
|
|
["def", "PRINT", ["fn", ["exp"],
|
|
|
|
["pr-str", "exp", true]]],
|
|
|
|
|
|
|
|
["def", "rep", ["fn", ["strng"],
|
|
|
|
["try",
|
|
|
|
["PRINT", ["EVAL", ["READ", "strng"], null]],
|
|
|
|
["catch", "exc",
|
|
|
|
["str", ["`", "Error: "], "exc"]]]]],
|
|
|
|
|
|
|
|
["repl", ["`", "user> "], "rep"],
|
|
|
|
|
|
|
|
null
|
|
|
|
|
|
|
|
]
|