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

A bunch of fprintf' -> eprintf' conversions (and a few related things).

Browse Source 
original commit: 17090fca4f19298f01d03fea419edb20f315d040
This commit is contained in:
Eli Barzilay 2012-05-06 12:06:00 -04:00
parent 28a3257f7f
commit d8e0ca691a
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/deflate.rkt
View File

@ -64,7 +64,7 @@
(make-gzbytes (gzbytes-bytes v) (+ (gzbytes-offset v) o))) (make-gzbytes (gzbytes-bytes v) (+ (gzbytes-offset v) o)))
(define (Trace stderr str . args) (define (Trace stderr str . args)
(apply fprintf (current-error-port) str args)) (apply eprintf str args))
(define Tracevv Trace) (define Tracevv Trace)
(define Tracev Trace) (define Tracev Trace)
(define (Tracec test . args) (define (Tracec test . args)

6
collects/mzlib/zip.rkt
View File

@ -93,7 +93,7 @@
[mark1 #f] [mark1 #f]
[mark2 #f]) [mark2 #f])
(when (zip-verbose) (when (zip-verbose)
(fprintf (current-error-port) "zip: compressing ~a...\n" filename)) (eprintf "zip: compressing ~a...\n" filename))
;; write the contents to the output stream: ;; write the contents to the output stream:
(write-int *local-file-header* 4) ; signature (write-int *local-file-header* 4) ; signature
(write-int *required-version* 2) ; version (write-int *required-version* 2) ; version
@ -254,10 +254,10 @@
(zip-one-entry (build-metadata file) seekable?)) (zip-one-entry (build-metadata file) seekable?))
files)]) files)])
(when (zip-verbose) (when (zip-verbose)
(fprintf (current-error-port) "zip: writing headers...\n")) (eprintf "zip: writing headers...\n"))
(write-central-directory headers)) (write-central-directory headers))
(when (zip-verbose) (when (zip-verbose)
(fprintf (current-error-port) "zip: done.\n")))) (eprintf "zip: done.\n"))))
;; zip : output-file paths -> ;; zip : output-file paths ->
(provide zip) (provide zip)