From d7e6f35b97345f3706463c217e0f2a193d82b664 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 22 Dec 2012 08:30:35 -0600 Subject: [PATCH] guard against spurious status messages --- collects/drracket/private/module-language.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index eaa28c32d7..47867a537e 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -1907,7 +1907,7 @@ (define/oc-log (oc-finished res) (define-values (running-tab dirty/pending-tab dirty-tabs clean-tabs) (get-current-oc-state)) - (when running-tab ;; why can this be #f? + (when running-tab (cond [(eq? (vector-ref res 0) 'handler-results) (line-of-interest) @@ -1936,9 +1936,10 @@ (oc-maybe-start-something))) (define/oc-log (oc-status-message sym str) - (line-of-interest) (define-values (running-tab dirty/pending-tab dirty-tabs clean-tabs) (get-current-oc-state)) - (send running-tab set-oc-status (running sym str))) + (when running-tab + (line-of-interest) + (send running-tab set-oc-status (running sym str)))) ;; get-focus-tab : -> (or/c tab #f) (define (get-focus-tab)