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

Fix Performance Report on unsaved editors.

Browse Source 
Closes PR12808.
This commit is contained in:
Vincent St-Amour 2012-06-29 16:27:37 -04:00
parent 9e97ea4cae
commit 1d43b5a0db
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-racket/optimizer/tool/report.rkt
View File

@ -66,12 +66,14 @@
(define data (cdr (vector-ref l 2))) ; get the log-entry part (define data (cdr (vector-ref l 2))) ; get the log-entry part
(set! log (cons data log))) (set! log (cons data log)))
(lambda () (lambda ()
(define port-name (send this get-port-name))
(parameterize (parameterize
([current-namespace (make-base-namespace)] ([current-namespace (make-base-namespace)]
[current-load-relative-directory [current-load-relative-directory
(let-values ([(base name _) (if (path-string? port-name)
(split-path (send this get-port-name))]) (let-values ([(base name _) (split-path port-name)])
base)] base)
(current-load-relative-directory))]
[read-accept-reader #t]) [read-accept-reader #t])
(void (expand (tr:read-syntax portname input)))))))) (void (expand (tr:read-syntax portname input))))))))
(filter right-file? (reverse log))) (filter right-file? (reverse log)))