| 1 | ["do", |
| 2 | |
| 3 | ["load", ["`", "miniMAL-core.json"]], |
| 4 | ["load", ["`", "types.json"]], |
| 5 | ["load", ["`", "reader.json"]], |
| 6 | ["load", ["`", "printer.json"]], |
| 7 | |
| 8 | ["def", "READ", ["fn", ["strng"], |
| 9 | ["read-str", "strng"]]], |
| 10 | |
| 11 | ["def", "EVAL", ["fn", ["ast", "env"], |
| 12 | "ast"]], |
| 13 | |
| 14 | ["def", "PRINT", ["fn", ["exp"], |
| 15 | ["pr-str", "exp", true]]], |
| 16 | |
| 17 | ["def", "rep", ["fn", ["strng"], |
| 18 | ["try", |
| 19 | ["PRINT", ["EVAL", ["READ", "strng"], null]], |
| 20 | ["catch", "exc", |
| 21 | ["str", ["`", "Error: "], "exc"]]]]], |
| 22 | |
| 23 | ["repl", ["`", "user> "], "rep"], |
| 24 | |
| 25 | null |
| 26 | |
| 27 | ] |