2015-02-12 06:56:47 +03:00
|
|
|
["do",
|
|
|
|
|
|
|
|
["load-file", ["`", "miniMAL-core.json"]],
|
|
|
|
|
|
|
|
["def", "READ", ["fn", ["strng"],
|
2015-03-07 18:04:07 +03:00
|
|
|
"strng"]],
|
2015-02-12 06:56:47 +03:00
|
|
|
|
|
|
|
["def", "EVAL", ["fn", ["ast", "env"],
|
2015-03-07 18:04:07 +03:00
|
|
|
"ast"]],
|
2015-02-12 06:56:47 +03:00
|
|
|
|
|
|
|
["def", "PRINT", ["fn", ["exp"],
|
2015-03-07 18:04:07 +03:00
|
|
|
"exp"]],
|
2015-02-12 06:56:47 +03:00
|
|
|
|
|
|
|
["def", "rep", ["fn", ["strng"],
|
2015-03-07 18:04:07 +03:00
|
|
|
["PRINT", ["EVAL", ["READ", "strng"], null]]]],
|
2015-02-12 06:56:47 +03:00
|
|
|
|
|
|
|
["repl", ["`", "user> "], "rep"],
|
|
|
|
|
|
|
|
null
|
|
|
|
|
|
|
|
]
|