From eadc2a7e4c35d56ad84a251a52f1af7ce5548425 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Thu, 26 Aug 2010 17:38:57 -0400
Subject: [PATCH] Exclude directories when testing TR's optimizer.

---
 collects/tests/typed-scheme/optimizer/run.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt
index 63cb7f8fd9..d089824f30 100644
--- 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