[racket-dev] [plt] Push #24933: master branch updated

Yay!

On 06/29/2012 02:28 PM, stamourv at 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 <stamourv at 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)))
>