altos/lisp: working on lexical scoping

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

diff --git a/src/lisp/ao_lisp_prim.c b/src/lisp/ao_lisp_prim.c
index 3c081ee89fbeab3be336fe4f298dc824fb926b9e..bfd75ae3b629a1ad9e235277418f3d528e73d6a1 100644 (file)
--- a/src/lisp/ao_lisp_prim.c
+++ b/src/lisp/ao_lisp_prim.c
@@ -45,7 +45,15 @@ static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
        [AO_LISP_BUILTIN] = {
                .print = ao_lisp_builtin_print,
                .patom = ao_lisp_builtin_print,
-       }
+       },
+       [AO_LISP_FRAME] = {
+               .print = ao_lisp_frame_print,
+               .patom = ao_lisp_frame_print,
+       },
+       [AO_LISP_LAMBDA] = {
+               .print = ao_lisp_lambda_print,
+               .patom = ao_lisp_lambda_print,
+       },
 };
 
 static const struct ao_lisp_funcs *