From: Keith Packard <keithp@keithp.com>
Date: Wed, 16 Nov 2016 21:47:49 +0000 (-0800)
Subject: altos/lisp: Allow empty defun bodies
X-Git-Tag: 1.7~150
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=a7fcf80e22e70516d0b2da314fb17ced20a3f775

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 6fbc35b6..13bb8139 100644
--- 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))
+				 )
+			   )
 			  )
 		    )
 		   )