From 1ff835d4b39bcbc73a1f9a9284bb005146970952 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Thu, 19 Jun 2008 20:43:51 +0000 Subject: [PATCH] Fix PR#9526 svn: r10380 --- collects/profj/tool.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss index 666a23e422..5117413175 100644 --- a/collects/profj/tool.ss +++ b/collects/profj/tool.ss @@ -748,7 +748,8 @@ #f))))))) (define (get-defn-editor port-name) - (let* ([dr-frame (send (drscheme:rep:current-rep) get-top-level-window)] + (let* ([dr-frame (and (drscheme:rep:current-rep) + (send (drscheme:rep:current-rep) get-top-level-window))] [tabs (and dr-frame (send dr-frame get-tabs))] [defs (if dr-frame (map (lambda (t) (send t get-defs)) tabs) @@ -757,9 +758,7 @@ (and (is-a? d drscheme:unit:definitions-text<%>) (send d port-name-matches? port-name))) defs)]) - (and dr-frame - (= 1 (length def)) - (car def)))) + (and dr-frame (= 1 (length def)) (car def)))) ;process-extras: (list struct) type-record -> (list syntax) (define/private (process-extras extras type-recs)