From 214f85ca0341321e13d6fd4044af1d22dbc9dbf2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 5 Jan 2010 12:16:02 +0000
Subject: [PATCH] don't use for/list in tree-for-each

svn: r17481
---
 collects/meta/tree/tree.ss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/collects/meta/tree/tree.ss b/collects/meta/tree/tree.ss
index ddc96c400d..8c3fe3fcda 100644
--- a/collects/meta/tree/tree.ss
+++ b/collects/meta/tree/tree.ss
@@ -42,8 +42,7 @@
     (f tree base)
     (when (dir? tree)
       (let ([base* (bytes-append base (tree-name tree))])
-        (for/list ([tree (in-list (dir-subs tree))]) (loop tree base*)))))
-  (void))
+        (for ([tree (in-list (dir-subs tree))]) (loop tree base*))))))
 
 (define (print-tree tree)
   (tree-for-each