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

print success on current-output-port

Browse Source 
svn: r16787
This commit is contained in:
Sam Tobin-Hochstadt 2009-11-15 14:35:29 +00:00
parent 5bba93dd09
commit 960bf4caab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/examples/beginner.ss
View File

@ -551,7 +551,7 @@ reflects the (broken) spec).
(define (show-test-results) (define (show-test-results)
(cond (cond
[(= failed-tests 0) [(= 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 [else
(fprintf (current-error-port) "failed ~a out of ~a tests\n" failed-tests total-tests)])) (fprintf (current-error-port) "failed ~a out of ~a tests\n" failed-tests total-tests)]))