From 960bf4caab8e882b4750c3b8ed34bf54d3103979 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sun, 15 Nov 2009 14:35:29 +0000 Subject: [PATCH] print success on current-output-port svn: r16787 --- collects/redex/examples/beginner.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/redex/examples/beginner.ss b/collects/redex/examples/beginner.ss index 06499b18f9..0ffc83aa75 100644 --- a/collects/redex/examples/beginner.ss +++ b/collects/redex/examples/beginner.ss @@ -551,7 +551,7 @@ reflects the (broken) spec). (define (show-test-results) (cond [(= failed-tests 0) - (fprintf (current-error-port) "passed all ~a tests\n" total-tests)] + (fprintf (current-output-port) "passed all ~a tests\n" total-tests)] [else (fprintf (current-error-port) "failed ~a out of ~a tests\n" failed-tests total-tests)]))