fixed a bug found by the random testing from randomly-click-language-dialog.ss

svn: r17897 original commit: 30c5d37b81cdd70f517eab7392896e8afffad6e6
2010-01-30 20:50:18 +00:00 · 2010-01-30 20:50:18 +00:00 · d70673cdc6
commit d70673cdc6
parent 88384ffeb0
1 changed files with 3 additions and 2 deletions
--- a/collects/framework/test.ss
+++ b/collects/framework/test.ss
@ -205,7 +205,8 @@
  (λ (window)
    (let ([frame  (get-active-frame)])
      (let loop ([window  window])
-        (cond [(null? window)      #f]
+        (cond [(not window) #f]
+              [(null? window) #f]  ;; is this test needed?
              [(eq? window frame) #t]
              [else  (loop (send window get-parent))])))))