altos/lisp: Switch to scheme formal syntax for varargs

[fw/altos] / src / lisp / ao_lisp_poly.c

diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c
index 94ecd042551014cf13c5e9c2ff9db7174d82ad56..d14f41513c1320837c70813b0c043adf3688996a 100644 (file)
--- a/src/lisp/ao_lisp_poly.c
+++ b/src/lisp/ao_lisp_poly.c
@@ -44,6 +44,10 @@ static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
                .write = ao_lisp_frame_write,
                .display = ao_lisp_frame_write,
        },
+       [AO_LISP_FRAME_VALS] = {
+               .write = NULL,
+               .display = NULL,
+       },
        [AO_LISP_LAMBDA] = {
                .write = ao_lisp_lambda_write,
                .display = ao_lisp_lambda_write,
@@ -60,6 +64,10 @@ static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
                .write = ao_lisp_bigint_write,
                .display = ao_lisp_bigint_write,
        },
+       [AO_LISP_FLOAT] = {
+               .write = ao_lisp_float_write,
+               .display = ao_lisp_float_write,
+       },
 };
 
 static const struct ao_lisp_funcs *