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

fix jump-to-defining-file when a stacktrace window is open

Browse Source 
(cherry picked from commit 951538ab90)
This commit is contained in:
Robby Findler 2013-04-24 19:55:53 -05:00 committed by Ryan Culpepper
parent 6cf0818faf
commit bbb2bec62b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1555,7 +1555,8 @@ If the namespace does not, they are colored the unbound color.
(match-define (def-link id filename submods) a-def-link) (match-define (def-link id filename submods) a-def-link)
(define tab (define tab
(for/or ([frame (in-list (send (group:get-the-frame-group) get-frames))]) (for/or ([frame (in-list (send (group:get-the-frame-group) get-frames))])
(send frame find-matching-tab filename))) (and (is-a? frame drracket:unit:frame<%>)
(send frame find-matching-tab filename))))
(define dt (define dt
(and tab (and tab
(send (send tab get-defs) syncheck:find-definition-target id submods))) (send (send tab get-defs) syncheck:find-definition-target id submods)))