commit 923b53663dd49e3889d46b0b73a56e8ab0409e59
author swissChili <swisschili@fastmail.com> Sun May 09 20:31:43 2021 -0700
committer swissChili <swisschili@fastmail.com> Sun May 09 20:31:43 2021 -0700
tree d7671a0794f8db1e86d603dc6759bf5b71820e9c
parent a820dea46a0db20f69a3243c20dec4566c646bff

Add argument variable binding

src/lisp/test.lisp

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