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

Add a missing check for when arrow-records might be #f

Browse Source 
closes PR 13133
This commit is contained in:
Robby Findler 2012-09-21 16:19:28 -05:00
parent 9b6ff5d94d
commit c3a454aebf
1 changed files with 70 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/syncheck/gui.rkt
View File

@ -1056,6 +1056,7 @@ If the namespace does not, they are colored the unbound color.
(invalidate-bitmap-cache 0 0 'display-end 'display-end)) (invalidate-bitmap-cache 0 0 'display-end 'display-end))
(define/public (syncheck:build-popup-menu menu pos text) (define/public (syncheck:build-popup-menu menu pos text)
(when arrow-records
(define arrow-record (hash-ref arrow-records text #f)) (define arrow-record (hash-ref arrow-records text #f))
(when arrow-record (when arrow-record
(define added-sep? #f) (define added-sep? #f)
@ -1128,7 +1129,7 @@ If the namespace does not, they are colored the unbound color.
arrow-record arrow-record
start-selection start-selection
end-selection)))) end-selection))))
(for-each (λ (f) (f menu)) add-menus))) (for-each (λ (f) (f menu)) add-menus))))
(struct tooltip-spec (strings x y w h) #:transparent) (struct tooltip-spec (strings x y w h) #:transparent)