summaryrefslogtreecommitdiff
path: root/src/lisp/ao_lisp_builtin.c
diff options
context:
space:
mode:
authorKeith Packard <keithp@keithp.com>2016-11-15 10:18:12 -0800
committerKeith Packard <keithp@keithp.com>2017-02-20 11:16:51 -0800
commit41175ff82bc0e35c99c60b49aa62944a12917157 (patch)
tree13083763ba237206440b9463c9807696fef7bbb2 /src/lisp/ao_lisp_builtin.c
parent974717eb9dad105c9897ee24f953d98d57eaec77 (diff)
altos/lisp: Get lambdakey and nucleo-32 building again
Remove exti from the build list to make things fit. Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_builtin.c')
-rw-r--r--src/lisp/ao_lisp_builtin.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index e4b7ef52..b808cbc5 100644
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -106,6 +106,7 @@ static const ao_poly ao_lisp_args_atoms[] = {
char *
ao_lisp_args_name(uint8_t args)
{
+ args &= AO_LISP_FUNC_MASK;
if (args < sizeof ao_lisp_args_atoms / sizeof ao_lisp_args_atoms[0])
return ao_lisp_poly_atom(ao_lisp_args_atoms[args])->name;
return "(unknown)";