diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-16 13:47:49 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-17 22:18:39 -0800 |
| commit | a6e52fa669b65404d4416b6660f8508743e46d9b (patch) | |
| tree | fa4698aff900a2b224acba712028fc592a80d196 | |
| parent | 81f572512cad9cefadd4e4ede7678e2566117d2a (diff) | |
altos/lisp: Allow empty defun bodies
This allows for (defun foo())
Signed-off-by: Keith Packard <keithp@keithp.com>
| -rw-r--r-- | src/lisp/ao_lisp_const.lisp | 9 |
1 files changed, 6 insertions, 3 deletions
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)) + ) + ) ) ) ) |