suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: b5317355c440b20bec34ea7850beba84b52a425d
This commit is contained in:
Matthew Flatt 2003-04-07 21:01:11 +00:00
parent d3d5f84bf6
commit c41bad8dd4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/net/mime-util.ss
View File

@ -125,11 +125,13 @@
(substring rest 1 size) (substring rest 1 size)
(sub1 size))))))) (sub1 size)))))))
(define warning (define warning void)
#|
(lambda (msg . args) (lambda (msg . args)
(fprintf (current-error-port) (fprintf (current-error-port)
(apply format (cons msg args))) (apply format (cons msg args)))
(newline (current-error-port)))) (newline (current-error-port))))
|#
;; Copies its input `in' to its ouput port if given, it uses ;; Copies its input `in' to its ouput port if given, it uses
;; current-output-port if out is not provided. ;; current-output-port if out is not provided.