guard object=? test properly

original commit: 496230db12b7b6669cea08f19e5695d74b2e39d7
2014-10-18 10:42:07 -05:00 · 2014-10-18 10:42:07 -05:00 · d0249aec6d
commit d0249aec6d
parent c47de64349
1 changed files with 2 additions and 1 deletions
--- a/pkgs/gui-pkgs/gui-lib/framework/test.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/test.rkt
@ -225,6 +225,7 @@
  (let ([frame  (test:get-active-top-level-window)])
    (let loop ([window  window])
      (cond [(not window) #f]
+            [(not frame) #f]
            [(null? window) #f]  ;; is this test needed?
            [(object=? window frame) #t]
            [else (loop (send window get-parent))]))))