guard object=? test properly

2014-10-18 10:42:07 -05:00 · 2014-10-18 10:42:07 -05:00 · 496230db12
commit 496230db12
parent fbdfa36594
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))]))))