From 30ea1afc588eefd98d15cbf2d4e4f9c88d7b2732 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 29 Jul 2011 18:02:07 -0400 Subject: [PATCH] Fix Performance Report on unsaved files. --- collects/typed-scheme/optimizer/tool/report.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/typed-scheme/optimizer/tool/report.rkt b/collects/typed-scheme/optimizer/tool/report.rkt index 5624b8442c..28444573bd 100644 --- a/collects/typed-scheme/optimizer/tool/report.rkt +++ b/collects/typed-scheme/optimizer/tool/report.rkt @@ -39,11 +39,11 @@ (define log-entry-data (cdr (vector-ref l 2))) ; log-entry struct (define stx (log-entry-stx log-entry-data)) (define path - (if (and (pseudo-syntax-source-directory stx) - (pseudo-syntax-source-file-name stx)) - (build-path (deserialize (pseudo-syntax-source-directory stx)) - (deserialize (pseudo-syntax-source-file-name stx))) - #f)) + (let ([dir (deserialize (pseudo-syntax-source-directory stx))] + [file (deserialize (pseudo-syntax-source-file-name stx))]) + (if (and dir file) + (build-path dir file) + #f))) (cond [(and good-portname-cache ; cache is populated (equal? path good-portname-cache)) #t]