projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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_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 *
};
static const struct ao_lisp_funcs *