summaryrefslogtreecommitdiff
path: root/src/lisp
diff options
context:
space:
mode:
authorKeith Packard <keithp@keithp.com>2016-11-15 10:18:12 -0800
committerKeith Packard <keithp@keithp.com>2016-11-17 22:18:39 -0800
commitf3ac87a792527e9b7eb888e0c1f86fe49dc49bbc (patch)
tree07d17e5934e2a23a524d8a5e005c782b9eefe83a /src/lisp
parentacfc29f2400cc3c06745edb5ec0c82b82998d3cc (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')
-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)";