Exclude directories when testing TR's optimizer.

original commit: eadc2a7e4c35d56ad84a251a52f1af7ce5548425
2010-08-26 17:38:57 -04:00 · 2010-08-26 17:38:57 -04:00 · e291319f96
commit e291319f96
parent 6e2563c2a9
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