aboutsummaryrefslogtreecommitdiff
path: root/miniMAL/step1_read_print.json
blob: dc1f2695f6c0b93a156939fbff46b480f614ccb2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
["do",

["load-file", ["`", "miniMAL-core.json"]],
["load-file", ["`", "types.json"]],
["load-file", ["`", "reader.json"]],
["load-file", ["`", "printer.json"]],

["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

]