defmacro

src/test/cases/BasicTestCase.kiss

@@ -370,4 +370,13 @@
     (Assert.equals 5 (doSomething (lambda [i] i)))
     (Assert.equals 7 (doSomething (lambda [i] (+ i 2))))
     // Pass null to the really crazy one because I'm lazy:
-    (Assert.equals "but it still compiles" (itsAMonster null)))
+    (Assert.equals "but it still compiles" (itsAMonster null)))
+
+(defmacro defconstfunc [name const] `(defun ,name [] ,const))
+
+(defconstfunc func5 5)
+(defconstfunc funcHello "hello")
+
+(defun _testDefmacro []
+    (Assert.equals 5 (func5))
+    (Assert.equals "hello" (funcHello)))