altos/lisp: Show number of collect calls in ao_lisp_test

This helps tune the allocator

Signed-off-by: Keith Packard <keithp@keithp.com>

diff --git a/src/test/ao_lisp_test.c b/src/test/ao_lisp_test.c
index 648d1abe061a021ef5cc4964c934d2bf08e923b1..bbaa3f9d87eab95da1285433ddaf3368b39327eb 100644 (file)
--- a/src/test/ao_lisp_test.c
+++ b/src/test/ao_lisp_test.c
@@ -101,4 +101,5 @@ main (int argc, char **argv)
                ao_lisp_file = NULL;
        }
        ao_lisp_read_eval_print();
+       printf ("%d collects\n", ao_lisp_collects);
 }