commit a820dea46a0db20f69a3243c20dec4566c646bff
author swissChili <swisschili@fastmail.com> Sun May 09 16:46:55 2021 -0700
committer swissChili <swisschili@fastmail.com> Sun May 09 16:46:55 2021 -0700
tree 7e9bdb77d143ce9ca35c5430e85b8d886c62ca4c
parent 53472e87d861008bbdee7cdcc4d758a48f98d868

Fix "if" condition

src/lisp/test.lisp

diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index 82e5955..6f4abb8 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -1,7 +1,12 @@
 (defun two-plus-two ()
   (+ 2 2))
 
-(defun main ()
+(defun hmm-main ()
   (print "64 / (2 + 2) =")
   (print (/ 64 (two-plus-two)))
   (print nil))
+
+(defun main ()
+  (if t
+    (print 1)
+    (print 2)))