Commit | Line | Data |
---|---|---|
c1fe72ae JM |
1 | ["do", |
2 | ||
b32495e9 JM |
3 | ["load", ["`", "miniMAL-core.json"]], |
4 | ["load", ["`", "types.json"]], | |
5 | ["load", ["`", "reader.json"]], | |
6 | ["load", ["`", "printer.json"]], | |
c1fe72ae JM |
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 | ] |