projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Add incremental collection
[fw/altos]
/
src
/
lisp
/
ao_lisp_make_const.c
diff --git
a/src/lisp/ao_lisp_make_const.c
b/src/lisp/ao_lisp_make_const.c
index 416a95d91fa4ddfa4be7d624696bae2c661db4cf..60bb80f01e8059b01c534b7a306d933f59d3579d 100644
(file)
--- a/
src/lisp/ao_lisp_make_const.c
+++ b/
src/lisp/ao_lisp_make_const.c
@@
-147,7
+147,7
@@
ao_lisp_macro_pop(void)
free(m);
}
free(m);
}
-#define DBG_MACRO
1
+#define DBG_MACRO
0
#if DBG_MACRO
int macro_scan_depth;
#if DBG_MACRO
int macro_scan_depth;
@@
-355,7
+355,7
@@
main(int argc, char **argv)
}
/* Reduce to referenced values */
}
/* Reduce to referenced values */
- ao_lisp_collect();
+ ao_lisp_collect(
AO_LISP_COLLECT_FULL
);
for (f = 0; f < ao_lisp_frame_num(ao_lisp_frame_global); f++) {
val = ao_has_macro(ao_lisp_frame_global->vals[f].val);
for (f = 0; f < ao_lisp_frame_num(ao_lisp_frame_global); f++) {
val = ao_has_macro(ao_lisp_frame_global->vals[f].val);