From 0f1905d48e32763893924436b6c8d0bcc1ddf8d4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 3 Jul 2003 13:20:36 +0000 Subject: [PATCH] .. original commit: 3eb89658e986688336212fb24e1f9e1de240cf43 --- collects/framework/private/editor.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss index f966522b..a07bcfb8 100644 --- a/collects/framework/private/editor.ss +++ b/collects/framework/private/editor.ss @@ -81,7 +81,7 @@ (opt-lambda ([input-filename #f] [fmt 'guess] [show-errors? #t]) - (let ([filename (if (or (not input-filename) + (let ([filename (if (or (not input-filename) (equal? input-filename "")) (let ([internal-filename (get-filename)]) (if (or (not internal-filename) @@ -201,10 +201,11 @@ (let* ([snip (send editor-admin get-snip)] [snip-admin (send snip get-admin)]) (loop (send snip-admin get-editor)))] - [(send text get-canvas) => (lambda (canvas) - (send canvas get-top-level-window))] - [else - #f]))))] + [(send text get-canvas) + => + (lambda (canvas) + (send canvas get-top-level-window))] + [else #f]))))] (public editing-this-file?) [define editing-this-file? (lambda () #f)]