remove base64 debugging output

svn: r11520 original commit: 7901a9fbdf6b911278c2d0910ba3e224a58ba367
2008-09-02 11:51:21 +00:00 · 2008-09-02 11:51:21 +00:00 · f9a61109f7
commit f9a61109f7
parent a957e2c047
1 changed files with 0 additions and 2 deletions
--- 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))