altos/scheme: Support scheme subsetting via feature settings

[fw/altos] / src / scheme / test / ao_scheme_test.c

diff --git a/src/scheme/test/ao_scheme_test.c b/src/scheme/test/ao_scheme_test.c
index 15c71203e802028b8974f4813a56bcaec22a70d3..45068369e6faf49c7ceb8e6e02fd5b9240478c0e 100644 (file)
--- a/src/scheme/test/ao_scheme_test.c
+++ b/src/scheme/test/ao_scheme_test.c
@@ -78,7 +78,7 @@ ao_scheme_getc(void)
                return getc(ao_scheme_file);
 
        if (newline) {
-               if (ao_scheme_read_stack)
+               if (ao_scheme_read_list)
                        printf("+ ");
                else
                        printf("> ");
@@ -107,15 +107,16 @@ main (int argc, char **argv)
        }
        ao_scheme_read_eval_print();
 
-       printf ("collects: full: %d incremental %d\n",
+#ifdef DBG_MEM_STATS
+       printf ("collects: full: %lu incremental %lu\n",
                ao_scheme_collects[AO_SCHEME_COLLECT_FULL],
                ao_scheme_collects[AO_SCHEME_COLLECT_INCREMENTAL]);
 
-       printf ("freed: full %d incremental %d\n",
+       printf ("freed: full %lu incremental %lu\n",
                ao_scheme_freed[AO_SCHEME_COLLECT_FULL],
                ao_scheme_freed[AO_SCHEME_COLLECT_INCREMENTAL]);
 
-       printf("loops: full %d incremental %d\n",
+       printf("loops: full %lu incremental %lu\n",
                ao_scheme_loops[AO_SCHEME_COLLECT_FULL],
                ao_scheme_loops[AO_SCHEME_COLLECT_INCREMENTAL]);
 
@@ -136,4 +137,5 @@ main (int argc, char **argv)
               (double) ao_scheme_loops[AO_SCHEME_COLLECT_FULL],
               (double) ao_scheme_freed[AO_SCHEME_COLLECT_INCREMENTAL] /
               (double) ao_scheme_loops[AO_SCHEME_COLLECT_INCREMENTAL]);
+#endif
 }