From dda1b1c8804dcc833082d02a59c99ae77a15ab26 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 16 Jun 2011 11:34:34 -0400 Subject: [PATCH] Don't keep useless return values around. --- collects/tests/typed-scheme/optimizer/transform.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/transform.rkt b/collects/tests/typed-scheme/optimizer/transform.rkt index ab89237f2e..4e0b810161 100644 --- 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)