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

Revert r10469.

Browse Source 
svn: r10480
This commit is contained in:
Danny Yoo 2008-06-27 19:33:04 +00:00
parent 8d6f390e83
commit 1e1cb4d843
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/stepper/private/xml-snip-helpers.ss
View File

@ -23,7 +23,7 @@
"read: bad syntax: empty scheme box") "read: bad syntax: empty scheme box")
txt line col pos 1))) txt line col pos 1)))
(let ([stx (read-syntax (let ([stx (read-syntax
text (get-source-name text)
(open-input-text-editor text 0 (send text last-position)))]) (open-input-text-editor text 0 (send text last-position)))])
(when (eof-object? stx) (when (eof-object? stx)
(raise-read-error (raise-read-error
@ -33,6 +33,12 @@
text 1 1 1 (send text last-position))) text 1 1 1 (send text last-position)))
stx))) 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) (define (xml-read-special eliminate-whitespace-in-empty-tags? snip file line col pos)
(let ([editor (send snip get-editor)] (let ([editor (send snip get-editor)]