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

Fix Performance Report on unsaved files.

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

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

@ -39,11 +39,11 @@
(define log-entry-data (cdr (vector-ref l 2))) ; log-entry struct
(define stx (log-entry-stx log-entry-data))
(define path
(if (and (pseudo-syntax-source-directory stx)
(pseudo-syntax-source-file-name stx))
(build-path (deserialize (pseudo-syntax-source-directory stx))
(deserialize (pseudo-syntax-source-file-name stx)))
#f))
(let ([dir (deserialize (pseudo-syntax-source-directory stx))]
[file (deserialize (pseudo-syntax-source-file-name stx))])
(if (and dir file)
(build-path dir file)
#f)))
(cond [(and good-portname-cache ; cache is populated
(equal? path good-portname-cache))
#t]