test hoisted functions too
This commit is contained in:
parent
8cc26ba1bf
commit
6f0e739b31
@ -520,7 +520,8 @@
|
|||||||
(assert (= 4 (eval (quote (+ x 2)))))
|
(assert (= 4 (eval (quote (+ x 2)))))
|
||||||
(setf test-payload (quote (+ x 2)))
|
(setf test-payload (quote (+ x 2)))
|
||||||
(setf x 4)
|
(setf x 4)
|
||||||
(assert (= 6 (eval test-payload))))
|
(assert (= 6 (eval test-payload)))
|
||||||
|
(assert (= 6 (eval (quote ((fn [] (+ 3 3))))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user