diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/res/test.lisp | 9 | ||||
-rw-r--r-- | test/src/TestLisp.kt | 3 |
2 files changed, 6 insertions, 6 deletions
diff --git a/test/res/test.lisp b/test/res/test.lisp index edadffd..5f32bee 100644 --- a/test/res/test.lisp +++ b/test/res/test.lisp @@ -2,10 +2,6 @@ (defun myfun (var) (debuglog var)) (myfun :myfunworks) ((lambda (a) (debuglog a)) :atom) -(debuglog a) -(defun testsomething (c) (debuglog (if c "truthy value" "falsey value"))) -(testsomething true) -(testsomething false) (defun testlog (a ...) (seq (debuglog "a" a) (debuglog "..." ...))) @@ -16,3 +12,8 @@ (debuglog "-" (- 1 3)) (debuglog "*" (* 10 10)) (debuglog "/" (/ 1 3 2)) +(debuglog "============") +(defun testsomething (c) (debuglog (if! c (seq (debuglog "left evaluated") (return "truthy value")) "falsey value"))) +(testsomething true) +(testsomething false) +(noop) diff --git a/test/src/TestLisp.kt b/test/src/TestLisp.kt index f986f1c..7a520fb 100644 --- a/test/src/TestLisp.kt +++ b/test/src/TestLisp.kt @@ -1,4 +1,3 @@ -import moe.nea.lisp.CoreBindings import moe.nea.lisp.LispExecutionContext import moe.nea.lisp.LispParser import java.io.File @@ -8,7 +7,7 @@ object T fun main() { val otherP = LispParser.parse(File(T::class.java.getResource("/test.lisp")!!.file)) val executionContext = LispExecutionContext() + executionContext.setupStandardBindings() val bindings = executionContext.genBindings() - CoreBindings.offerAllTo(bindings) executionContext.executeProgram(bindings, otherP) } |