From ae29015ee7c70b13e8d16fed268d1170c65a47f7 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 6 May 2012 12:06:00 -0400 Subject: [PATCH] A bunch of `fprintf' -> `eprintf' conversions (and a few related things). original commit: 17090fca4f19298f01d03fea419edb20f315d040 --- collects/compiler/demodularizer/util.rkt | 3 --- collects/tests/compiler/zo-test.rkt | 4 ++-- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/collects/compiler/demodularizer/util.rkt b/collects/compiler/demodularizer/util.rkt index 717dee8994..1865bc133f 100644 --- a/collects/compiler/demodularizer/util.rkt +++ b/collects/compiler/demodularizer/util.rkt @@ -9,9 +9,6 @@ (define total-stxs (length (prefix-stxs pre))) (+ syntax-start total-stxs (if (zero? total-stxs) 0 1))) -(define (eprintf . args) - (apply fprintf (current-error-port) args)) - (struct nothing ()) (define-syntax-rule (eprintf* . args) (void)) diff --git a/collects/tests/compiler/zo-test.rkt b/collects/tests/compiler/zo-test.rkt index 1b1279eb36..672b8677c8 100755 --- a/collects/tests/compiler/zo-test.rkt +++ b/collects/tests/compiler/zo-test.rkt @@ -137,9 +137,9 @@ exec racket -t "$0" -- -s -t 60 -v -R $* (unless (and (not (care-about-nonserious?)) (not serious?)) (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) - (stop!)))])) + (stop!)))])) (define timing-thread (thread