Add an early failure case for portname matching.

2011-07-29 18:02:24 -04:00 · 2011-07-29 18:02:24 -04:00 · 191f7a5f17
commit 191f7a5f17
parent 30ea1afc58
1 changed files with 2 additions and 0 deletions
--- a/collects/typed-scheme/optimizer/tool/report.rkt
+++ b/collects/typed-scheme/optimizer/tool/report.rkt
@ -47,6 +47,8 @@
    (cond [(and good-portname-cache ; cache is populated
                (equal? path good-portname-cache))
           #t]
+          [good-portname-cache ; cache is populated, but we have the wrong file
+           #f]
          ;; no cache, ask directly
          [(send this port-name-matches? path)
           (set! good-portname-cache path) ; populate cache