From 74371302593ee2ee365e697911c364246f460b63 Mon Sep 17 00:00:00 2001
From: nea <nea@nea.moe>
Date: Thu, 10 Aug 2023 01:37:33 +0200
Subject: Add builtins

---
 test/res/test.lisp   | 9 +++++----
 test/src/TestLisp.kt | 3 +--
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'test')

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)
 }
-- 
cgit