From 7901a9fbdf6b911278c2d0910ba3e224a58ba367 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 2 Sep 2008 11:51:21 +0000
Subject: [PATCH] remove base64 debugging output

svn: r11520
---
 collects/net/base64-unit.ss | 2 --
 1 file changed, 2 deletions(-)

diff --git a/collects/net/base64-unit.ss b/collects/net/base64-unit.ss
index dd7819a2fc..01970efc13 100644
--- a/collects/net/base64-unit.ss
+++ b/collects/net/base64-unit.ss
@@ -49,9 +49,7 @@
         (if (eof-object? c)
           ;; flush extra bits
           (begin
-            (printf "1 width = ~s\n" width)
             (let ([width (if (> bits 0) (write-char) width)])
-              (printf "2 width = ~s\n" width)
               (when (> width 0)
                 (for ([i (in-range (modulo (- width) 4))])
                   (write-byte =byte out))