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 log-entry-data (cdr (vector-ref l 2))) ; log-entry struct
(define stx (log-entry-stx log-entry-data)) (define stx (log-entry-stx log-entry-data))
(define path (define path
(if (and (pseudo-syntax-source-directory stx) (let ([dir (deserialize (pseudo-syntax-source-directory stx))]
(pseudo-syntax-source-file-name stx)) [file (deserialize (pseudo-syntax-source-file-name stx))])
(build-path (deserialize (pseudo-syntax-source-directory stx)) (if (and dir file)
(deserialize (pseudo-syntax-source-file-name stx))) (build-path dir file)
#f)) #f)))
(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]