clean up some debugging leftovers

pavpanchekha · Dec 22, 2020 · d7e9628 · d7e9628
1 parent a450246
commit d7e9628
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 4 deletions.
diff --git a/racket/src/ChezScheme/c/scheme.c b/racket/src/ChezScheme/c/scheme.c
@@ -344,11 +344,8 @@ static void idiot_checks() {
 static ptr boot_call PROTO((ptr tc, ptr p, INT n));
 static void check_ap PROTO((ptr tc));
 
-int boot_calls = 0;
-
 /* arguments and ac0 set up */
 static ptr boot_call(tc, p, n) ptr tc; ptr p; INT n; {
-  boot_calls++;
     AC1(tc) = p;
     CP(tc) = Svoid; /* don't have calling code object */
 

diff --git a/racket/src/cs/c/adjust-compress.rkt b/racket/src/cs/c/adjust-compress.rkt
@@ -190,7 +190,6 @@
    (for ([path (in-list path)])
      (define bstr (file->bytes path))
      (define bstr2 (adjust-compress bstr))
-     (printf "~s ~s\n" path (equal? bstr bstr2))
      (unless (equal? bstr bstr2)
        (call-with-output-file*
         path