suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't use for/list in tree-for-each

Browse Source 
svn: r17481
This commit is contained in:
Eli Barzilay 2010-01-05 12:16:02 +00:00
parent 01858d2989
commit 214f85ca03
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/meta/tree/tree.ss
View File

@ -42,8 +42,7 @@
(f tree base) (f tree base)
(when (dir? tree) (when (dir? tree)
(let ([base* (bytes-append base (tree-name tree))]) (let ([base* (bytes-append base (tree-name tree))])
(for/list ([tree (in-list (dir-subs tree))]) (loop tree base*))))) (for ([tree (in-list (dir-subs tree))]) (loop tree base*))))))
(void))
(define (print-tree tree) (define (print-tree tree)
(tree-for-each (tree-for-each