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

Added defensive check for get-admin in get-enclosing-editor-frame.

Browse Source 
svn: r10466
This commit is contained in:
Danny Yoo 2008-06-26 21:12:15 +00:00
parent 238fb76afd
commit 259b6fb87c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/debug.ss
View File

@ -792,7 +792,7 @@ profile todo:
(define (get-enclosing-editor-frame an-editor) (define (get-enclosing-editor-frame an-editor)
(let ([admin (send an-editor get-admin)]) (let ([admin (send an-editor get-admin)])
(cond (cond
[(is-a? admin editor-snip-editor-admin<%>) [(and admin (is-a? admin editor-snip-editor-admin<%>))
(let* ([enclosing-editor-snip (send admin get-snip)] (let* ([enclosing-editor-snip (send admin get-snip)]
[editor-snip-admin (send enclosing-editor-snip get-admin)] [editor-snip-admin (send enclosing-editor-snip get-admin)]
[enclosing-editor (send editor-snip-admin get-editor)]) [enclosing-editor (send editor-snip-admin get-editor)])