From b29bb134bb10188829c3995a665cf2a18a007393 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Mon, 2 May 2011 11:41:34 -0400
Subject: [PATCH] Don't display name of non-test files.

original commit: 850d4d325d44c9a735ef9a2ca67610b7bd1ac1ea
---
 collects/tests/typed-scheme/optimizer/run.rkt | 38 ++++++++++---------
 1 file changed, 20 insertions(+), 18 deletions(-)

diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt
index c07f572b..eddf07a8 100644
--- a/collects/tests/typed-scheme/optimizer/run.rkt
+++ b/collects/tests/typed-scheme/optimizer/run.rkt
@@ -52,25 +52,27 @@
 
 (define (test gen)
   (let-values (((base name _) (split-path gen)))
-    (when (show-names?) (displayln name))
     (or (not (regexp-match ".*rkt$" name)) ; we ignore all but racket files
-        ;; we log optimizations and compare to an expected log to make sure
-        ;; that all the optimizations we expected did indeed happen
-        (and (or (let ((log      (generate-opt-log name))
-                       ;; expected optimizer log, to see what was optimized
-                       (expected
-                        (with-input-from-file gen
-                          (lambda ()
-                            (read-line) ; skip the #;
-                            (read)))))  ; get the log itself
-                   (equal? log expected))
-                 (begin (printf "~a failed: optimization log mismatch\n\n" name)
-                        #f))
-             ;; optimized and non-optimized versions must evaluate to the
-             ;; same thing
-             (or (equal? (evaluator gen) (evaluator gen #:optimize #t))
-                 (begin (printf "~a failed: result mismatch\n\n" name)
-                        #f))))))
+        (begin
+          (when (show-names?) (displayln name))
+          ;; we log optimizations and compare to an expected log to make sure
+          ;; that all the optimizations we expected did indeed happen
+          (and (or (let ((log      (generate-opt-log name))
+                         ;; expected optimizer log, to see what was optimized
+                         (expected
+                          (with-input-from-file gen
+                            (lambda ()
+                              (read-line) ; skip the #;
+                              (read)))))  ; get the log itself
+                     (equal? log expected))
+                   (begin
+                     (printf "~a failed: optimization log mismatch\n\n" name)
+                     #f))
+               ;; optimized and non-optimized versions must evaluate to the
+               ;; same thing
+               (or (equal? (evaluator gen) (evaluator gen #:optimize #t))
+                   (begin (printf "~a failed: result mismatch\n\n" name)
+                          #f)))))))
 
 (define to-run
   (command-line