Don't keep useless return values around.

2011-06-16 11:34:34 -04:00 · 2011-06-16 11:34:34 -04:00 · dda1b1c880
commit dda1b1c880
parent 847e4b2e23
1 changed files with 2 additions and 2 deletions
--- a/collects/tests/typed-scheme/optimizer/transform.rkt
+++ b/collects/tests/typed-scheme/optimizer/transform.rkt
@ -26,8 +26,8 @@

 ;; proc returns the list of tests to be run on each file
 (define (transform-dir dir)
-  (for/list ([name (directory-list dir)]
-             #:when (test-file? name))
+  (for ([name (directory-list dir)]
+        #:when (test-file? name))
    (transform name dir)))

 (cond [(= (vector-length (current-command-line-arguments)) 0)