Yay! On 06/29/2012 02:28 PM, stamo...@racket-lang.org wrote:
stamourv has updated `master' from 9e97ea4cae to 1d43b5a0db. http://git.racket-lang.org/plt/9e97ea4cae..1d43b5a0db=====[ One Commit ]===================================================== Directory summary: 100.0% collects/typed-racket/optimizer/tool/ ~~~~~~~~~~ 1d43b5a Vincent St-Amour <stamo...@racket-lang.org> 2012-06-29 16:27 : | Fix Performance Report on unsaved editors. | | Closes PR12808. : M collects/typed-racket/optimizer/tool/report.rkt | 8 +++++--- =====[ Overall Diff ]=================================================== collects/typed-racket/optimizer/tool/report.rkt ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- OLD/collects/typed-racket/optimizer/tool/report.rkt +++ NEW/collects/typed-racket/optimizer/tool/report.rkt @@ -66,12 +66,14 @@ (define data (cdr (vector-ref l 2))) ; get the log-entry part (set! log (cons data log))) (lambda () + (define port-name (send this get-port-name)) (parameterize ([current-namespace (make-base-namespace)] [current-load-relative-directory - (let-values ([(base name _) - (split-path (send this get-port-name))]) - base)] + (if (path-string? port-name) + (let-values ([(base name _) (split-path port-name)]) + base) + (current-load-relative-directory))] [read-accept-reader #t]) (void (expand (tr:read-syntax portname input)))))))) (filter right-file? (reverse log)))
_________________________ Racket Developers list: http://lists.racket-lang.org/dev
