Exclude directories when testing TR's optimizer.

2010-08-26 17:38:57 -04:00 · 2010-08-26 17:38:57 -04:00 · eadc2a7e4c
commit eadc2a7e4c
parent 63530ed74d
1 changed files with 1 additions and 0 deletions
--- a/collects/tests/typed-scheme/optimizer/run.rkt
+++ b/collects/tests/typed-scheme/optimizer/run.rkt
@ -26,6 +26,7 @@
 (define (test gen)
  (let-values (((base name _) (split-path gen)))
    (or (regexp-match ".*~" name) ; we ignore backup files
+        (directory-exists? gen)   ; and directories
        ;; machine optimized and hand optimized versions must expand to the
        ;; same code
        (and (or (equal? (parameterize ([current-load-relative-directory