.

original commit: b5317355c440b20bec34ea7850beba84b52a425d
2003-04-07 21:01:11 +00:00 · 2003-04-07 21:01:11 +00:00 · c41bad8dd4
commit c41bad8dd4
parent d3d5f84bf6
1 changed files with 3 additions and 1 deletions
--- a/collects/net/mime-util.ss
+++ b/collects/net/mime-util.ss
@ -125,11 +125,13 @@
 		     (substring rest 1 size)
 		     (sub1 size)))))))

-  (define warning
+  (define warning void)
+#|
    (lambda (msg . args)
      (fprintf (current-error-port)
 	       (apply format (cons msg args)))
      (newline (current-error-port))))
+|#

  ;; Copies its input `in' to its ouput port if given, it uses
  ;; current-output-port if out is not provided.