From ca7188be1e033151cf2b2e8b4792efc1f4efa206 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 27 Jun 2008 00:05:47 +0000 Subject: [PATCH] Removed hack in scheme box's read-special. This fixes error highlighting under Check Syntax for embedded scheme boxes. svn: r10469 --- collects/stepper/private/xml-snip-helpers.ss | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/collects/stepper/private/xml-snip-helpers.ss b/collects/stepper/private/xml-snip-helpers.ss index 68add61a36..95bea4e7eb 100644 --- a/collects/stepper/private/xml-snip-helpers.ss +++ b/collects/stepper/private/xml-snip-helpers.ss @@ -23,7 +23,7 @@ "read: bad syntax: empty scheme box") txt line col pos 1))) (let ([stx (read-syntax - (get-source-name text) + text (open-input-text-editor text 0 (send text last-position)))]) (when (eof-object? stx) (raise-read-error @@ -33,12 +33,6 @@ text 1 1 1 (send text last-position))) stx))) - (define (get-source-name text) - (cond - [(method-in-interface? 'get-port-name (object-interface text)) - (send text get-port-name)] - [else - (send text get-filename)])) (define (xml-read-special eliminate-whitespace-in-empty-tags? snip file line col pos) (let ([editor (send snip get-editor)]