projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
first rough cut at skeleton of code for pnpservo .. altos boots and runs
[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 236176e76baffc91fc0bfeeedc9c78511b6d465d..fb3b06fe8f2d90c00f4ae1589b61acb5fc71d078 100644
(file)
--- a/
src/lisp/ao_lisp_poly.c
+++ b/
src/lisp/ao_lisp_poly.c
@@
-14,12
+14,6
@@
#include "ao_lisp.h"
#include "ao_lisp.h"
-#if 0
-#define DBG(...) printf (__VA_ARGS__)
-#else
-#define DBG(...)
-#endif
-
struct ao_lisp_funcs {
void (*print)(ao_poly);
void (*patom)(ao_poly);
struct ao_lisp_funcs {
void (*print)(ao_poly);
void (*patom)(ao_poly);
@@
-54,6
+48,10
@@
static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
.print = ao_lisp_lambda_print,
.patom = ao_lisp_lambda_print,
},
.print = ao_lisp_lambda_print,
.patom = ao_lisp_lambda_print,
},
+ [AO_LISP_STACK] = {
+ .print = ao_lisp_stack_print,
+ .patom = ao_lisp_stack_print,
+ },
};
static const struct ao_lisp_funcs *
};
static const struct ao_lisp_funcs *