suzanne.soy/racket
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
This commit is contained in:
Robby Findler 2010-01-30 20:50:18 +00:00
parent 425dbf5af5
commit 30c5d37b81
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/test.ss
View File

@ -205,7 +205,8 @@
(λ (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]
[(null? window) #f] ;; is this test needed?
[(eq? window frame) #t] [(eq? window frame) #t]
[else (loop (send window get-parent))]))))) [else (loop (send window get-parent))])))))