X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Ftest%2Fao_scheme_test.c;h=45068369e6faf49c7ceb8e6e02fd5b9240478c0e;hb=d8c9024f3829dc3f241b16869f165f3ee01764f3;hp=15c71203e802028b8974f4813a56bcaec22a70d3;hpb=bd7a19a86f6d4fe19c7e72904e9b8ac0f2081ff7;p=fw%2Faltos

diff --git a/src/scheme/test/ao_scheme_test.c b/src/scheme/test/ao_scheme_test.c
index 15c71203..45068369 100644
--- 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
 }