altos/lisp: Allow empty defun bodies

This allows for (defun foo())

Signed-off-by: Keith Packard <keithp@keithp.com>

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 6fbc35b67993fc2798effb659063db749d247c9a..13bb81391fd570e95a41544a1a4e921a65705c4d 100644 (file)
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -49,9 +49,12 @@
                   (list
                    'lambda
                    args
-                   (cond ((cdr exprs)
-                          (cons progn exprs))
-                         ((car exprs))
+                   (cond (exprs
+                          (cond ((cdr exprs)
+                                 (cons progn exprs))
+                                ((car exprs))
+                                )
+                          )
                          )
                    )
                   )