From 67bc4f3f0c6e66d4af42f1619d6bcecaf591e889 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 17 Jul 2008 02:16:45 +0000 Subject: [PATCH] Revert "Adding checks for get-port-name in object interface before method call." svn: r10807 --- collects/drscheme/private/eval.ss | 7 ++----- collects/drscheme/private/unit.ss | 4 +--- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/collects/drscheme/private/eval.ss b/collects/drscheme/private/eval.ss index ac64a98503..d4bc45a968 100644 --- a/collects/drscheme/private/eval.ss +++ b/collects/drscheme/private/eval.ss @@ -46,11 +46,8 @@ (let* ([text (drscheme:language:text/pos-text input)] [start (drscheme:language:text/pos-start input)] [end (drscheme:language:text/pos-end input)] - [name (if (method-in-interface? 'get-port-name - (object-interface text)) - (send text get-port-name) - (send text get-filename))] - [text-port (open-input-text-editor text start end values name)]) + [text-port (open-input-text-editor text start end values + (send text get-port-name))]) (port-count-lines! text-port) (let* ([line (send text position-paragraph start)] [column (- start (send text paragraph-start-position line))] diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 264286df8c..0af19fc538 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -2256,9 +2256,7 @@ module browser threading seems wrong. (let ([start 0]) (send definitions-text split-snip start) - (let* ([name (if (method-in-interface? 'get-port-name (object-interface definitions-text)) - (send definitions-text get-port-name) - (send definitions-text get-filename))] + (let* ([name (send definitions-text get-port-name)] [text-port (open-input-text-editor definitions-text start 'end values name #t)]) (port-count-lines! text-port) (let* ([line (send definitions-text position-paragraph start)]