From 259b6fb87c05354b5094a1db46a570e29e683a96 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 26 Jun 2008 21:12:15 +0000 Subject: [PATCH] Added defensive check for get-admin in get-enclosing-editor-frame. svn: r10466 --- collects/drscheme/private/debug.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss index 9d2206ad82..e39eb46a39 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.ss @@ -792,7 +792,7 @@ profile todo: (define (get-enclosing-editor-frame an-editor) (let ([admin (send an-editor get-admin)]) (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)] [editor-snip-admin (send enclosing-editor-snip get-admin)] [enclosing-editor (send editor-snip-admin get-editor)])