suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

guard against spurious status messages

Browse Source
This commit is contained in:
Robby Findler 2012-12-22 08:30:35 -06:00
parent 1aebd171c5
commit d7e6f35b97
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drracket/private/module-language.rkt
View File

@ -1907,7 +1907,7 @@
(define/oc-log (oc-finished res) (define/oc-log (oc-finished res)
(define-values (running-tab dirty/pending-tab dirty-tabs clean-tabs) (get-current-oc-state)) (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 (cond
[(eq? (vector-ref res 0) 'handler-results) [(eq? (vector-ref res 0) 'handler-results)
(line-of-interest) (line-of-interest)
@ -1936,9 +1936,10 @@
(oc-maybe-start-something))) (oc-maybe-start-something)))
(define/oc-log (oc-status-message sym str) (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)) (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) ;; get-focus-tab : -> (or/c tab #f)
(define (get-focus-tab) (define (get-focus-tab)