Don't keep useless return values around.
This commit is contained in:
parent
847e4b2e23
commit
dda1b1c880
|
@ -26,7 +26,7 @@
|
||||||
|
|
||||||
;; proc returns the list of tests to be run on each file
|
;; proc returns the list of tests to be run on each file
|
||||||
(define (transform-dir dir)
|
(define (transform-dir dir)
|
||||||
(for/list ([name (directory-list dir)]
|
(for ([name (directory-list dir)]
|
||||||
#:when (test-file? name))
|
#:when (test-file? name))
|
||||||
(transform name dir)))
|
(transform name dir)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user