diff --git a/piclib/built-in.scm b/piclib/built-in.scm index bed1a218..f884c106 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -578,8 +578,6 @@ ;;; hygienic macros (define (walk f obj) - (write obj) - (newline) (if (pair? obj) (cons (walk f (car obj)) (walk f (cdr obj))) (if (vector? obj) diff --git a/src/gc.c b/src/gc.c index dae60db3..8049a2af 100644 --- a/src/gc.c +++ b/src/gc.c @@ -41,7 +41,9 @@ add_heap_page(pic_state *pic) struct heap_page *page; size_t nu; +#if GC_DEBUG puts("adding heap page!"); +#endif nu = (PIC_HEAP_PAGE_SIZE + sizeof(union header) - 1) / sizeof(union header) + 1;