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

guard object=? test properly

Browse Source 
original commit: 496230db12b7b6669cea08f19e5695d74b2e39d7
This commit is contained in:
Robby Findler 2014-10-18 10:42:07 -05:00
parent c47de64349
commit d0249aec6d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/gui-pkgs/gui-lib/framework/test.rkt
View File

@ -225,6 +225,7 @@
(let ([frame (test:get-active-top-level-window)]) (let ([frame (test:get-active-top-level-window)])
(let loop ([window window]) (let loop ([window window])
(cond [(not window) #f] (cond [(not window) #f]
[(not frame) #f]
[(null? window) #f] ;; is this test needed? [(null? window) #f] ;; is this test needed?
[(object=? window frame) #t] [(object=? window frame) #t]
[else (loop (send window get-parent))])))) [else (loop (send window get-parent))]))))