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

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

Browse Source 
svn: r17897

original commit: 30c5d37b81cdd70f517eab7392896e8afffad6e6
This commit is contained in:
Robby Findler 2010-01-30 20:50:18 +00:00
parent 88384ffeb0
commit d70673cdc6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/test.ss
View File

@ -205,8 +205,9 @@
(λ (window) (λ (window)
(let ([frame (get-active-frame)]) (let ([frame (get-active-frame)])
(let loop ([window window]) (let loop ([window window])
(cond [(null? window) #f] (cond [(not window) #f]
[(eq? window frame) #t] [(null? window) #f] ;; is this test needed?
[(eq? window frame) #t]
[else (loop (send window get-parent))]))))) [else (loop (send window get-parent))])))))
;; ;;