suzanne.soy/racket
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: 17090fca4f
This commit is contained in:
Eli Barzilay 2012-05-06 12:06:00 -04:00
parent d0f469f166
commit ae29015ee7
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/demodularizer/util.rkt
View File

@ -9,9 +9,6 @@
(define total-stxs (length (prefix-stxs pre))) (define total-stxs (length (prefix-stxs pre)))
(+ syntax-start total-stxs (if (zero? total-stxs) 0 1))) (+ syntax-start total-stxs (if (zero? total-stxs) 0 1)))
(define (eprintf . args)
(apply fprintf (current-error-port) args))
(struct nothing ()) (struct nothing ())
(define-syntax-rule (eprintf* . args) (void)) (define-syntax-rule (eprintf* . args) (void))

2
collects/tests/compiler/zo-test.rkt
View File

@ -137,7 +137,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(unless (and (not (care-about-nonserious?)) (not serious?)) (unless (and (not (care-about-nonserious?)) (not serious?))
(when (or (verbose-mode) (stop-on-first-error)) (when (or (verbose-mode) (stop-on-first-error))
(fprintf (current-error-port) "~a -- ~a: ~a\n" p phase exn-msg)) (eprintf "~a -- ~a: ~a\n" p phase exn-msg))
(when (stop-on-first-error) (when (stop-on-first-error)
(stop!)))])) (stop!)))]))