From 1d43b5a0db2826e035c930272dbc07d8402e8c57 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 29 Jun 2012 16:27:37 -0400 Subject: [PATCH] Fix Performance Report on unsaved editors. Closes PR12808. --- collects/typed-racket/optimizer/tool/report.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/typed-racket/optimizer/tool/report.rkt b/collects/typed-racket/optimizer/tool/report.rkt index 5e91af7258..039b6313f4 100644 --- a/collects/typed-racket/optimizer/tool/report.rkt +++ b/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)))