diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-16 13:47:49 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-02-20 11:16:51 -0800 |
| commit | a7fcf80e22e70516d0b2da314fb17ced20a3f775 (patch) | |
| tree | 4dbf2e2d3a1bc944ea34f91b0fa26427cf5045c5 /src/lisp/ao_lisp_const.lisp | |
| parent | daa06c8dedc6dc1cf21936ee2769d9d25f0567bd (diff) | |
altos/lisp: Allow empty defun bodies
This allows for (defun foo())
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_const.lisp')
| -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)) + ) + ) ) ) ) |