adbfe9f

test.lua modified (view file)

@@ -163,8 +163,8 @@ -- teq(read_eval("(let [x 1 y 2] [x y])"), {1, 2}) teq(read_eval("((fn [x] x) :abc)"), "abc") -- Add more arities?-teq(read_eval("((fn [x y] [x y]) [1 2])"), {1, 2})-teq(read_eval("((fn [x y z] [x y z]) [1 2 3])"), {1, 2, 3})+teq(read_eval("((fn [x y] [x y]) 1 2)"), {1, 2})+teq(read_eval("((fn [x y z] [x y z]) 1 2 3)"), {1, 2, 3}) -- teq(read_eval("((fn []))"), nil) -- teq(read_eval("((let []))"), nil) -- teq(read_eval("((fn [] 1 2 3))"), 3)