Don't keep useless return values around.

original commit: dda1b1c8804dcc833082d02a59c99ae77a15ab26
2011-06-16 11:34:34 -04:00 · 2011-06-16 11:34:34 -04:00 · f2c1f3c7aa
commit f2c1f3c7aa
parent 51dd8b0469
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)