From d7e9628caf1e1c46e1bda93c033d99697949d787 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 22 Dec 2020 13:07:15 -0700
Subject: [PATCH] clean up some debugging leftovers

---
 racket/src/ChezScheme/c/scheme.c    | 3 ---
 racket/src/cs/c/adjust-compress.rkt | 1 -
 2 files changed, 4 deletions(-)

diff --git a/racket/src/ChezScheme/c/scheme.c b/racket/src/ChezScheme/c/scheme.c
index 78e3063dc2..196916cdfc 100644
--- 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
index 575490782d..4cbd994a26 100644
--- 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