test hoisted functions too

This commit is contained in:
Paul R. Tagliamonte 2013-04-09 21:45:37 -04:00
parent 8cc26ba1bf
commit 6f0e739b31

View File

@ -520,7 +520,8 @@
(assert (= 4 (eval (quote (+ x 2)))))
(setf test-payload (quote (+ x 2)))
(setf x 4)
(assert (= 6 (eval test-payload))))
(assert (= 6 (eval test-payload)))
(assert (= 6 (eval (quote ((fn [] (+ 3 3))))))))