48607f0

org/faddle/lang/compile.lua modified (view file)

@@ -12,6 +12,7 @@ local lisp_print = require("org.faddle.lang.print").print  -- Still bad :p+-- There are a handful of unimplemented special forms that can only be evalled but not compiled! local FN = intern("fn") local LET = intern("let") local DO = intern("do")

test.lua modified (view file)

@@ -176,6 +176,8 @@ teq(read_eval("(let [] 1 2 3)"), 3) teq(read_eval("(let [x 1 y 2] [x y])"), {1, 2}) +-- TODO make tests for compiling things that are known to work when evaluated+ -- Feels like do could be implemented in terms of let or fn idk. -- teq(read_eval("(do)"), nil) -- teq(read_eval("(do 1)"), 1)