[jackhill/mal.git] / miniMAL / step0_repl.json

["do",


["load", ["`", "miniMAL-core.json"]],

["def", "READ", ["fn", ["strng"],
  "strng"]],

["def", "EVAL", ["fn", ["ast", "env"],
  "ast"]],

["def", "PRINT", ["fn", ["exp"],
  "exp"]],

["def", "rep", ["fn", ["strng"],
  ["PRINT", ["EVAL", ["READ", "strng"], null]]]],

["repl", ["`", "user> "], "rep"],

null

]
Commit	Line	Data
c1fe72ae JM	1	["do",
c1fe72ae JM	2
b32495e9 JM	3
b32495e9 JM	4	["load", ["`", "miniMAL-core.json"]],
c1fe72ae JM	5
c1fe72ae JM	6	["def", "READ", ["fn", ["strng"],
10b07148	7	"strng"]],
c1fe72ae JM	8
c1fe72ae JM	9	["def", "EVAL", ["fn", ["ast", "env"],
10b07148	10	"ast"]],
c1fe72ae JM	11
c1fe72ae JM	12	["def", "PRINT", ["fn", ["exp"],
10b07148	13	"exp"]],
c1fe72ae JM	14
c1fe72ae JM	15	["def", "rep", ["fn", ["strng"],
10b07148	16	["PRINT", ["EVAL", ["READ", "strng"], null]]]],
c1fe72ae JM	17
	18	["repl", ["`", "user> "], "rep"],
	19
	20	null
	21
	22	]