suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add an early failure case for portname matching.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-29 18:02:24 -04:00
parent 30ea1afc58
commit 191f7a5f17
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/optimizer/tool/report.rkt
View File

@ -47,6 +47,8 @@
(cond [(and good-portname-cache ; cache is populated (cond [(and good-portname-cache ; cache is populated
(equal? path good-portname-cache)) (equal? path good-portname-cache))
#t] #t]
[good-portname-cache ; cache is populated, but we have the wrong file
#f]
;; no cache, ask directly ;; no cache, ask directly
[(send this port-name-matches? path) [(send this port-name-matches? path)
(set! good-portname-cache path) ; populate cache (set! good-portname-cache path) ; populate cache