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

Revert "Adding checks for get-port-name in object interface before method call."

Browse Source 
svn: r10807
This commit is contained in:
Danny Yoo 2008-07-17 02:16:45 +00:00
parent f237af6140
commit 67bc4f3f0c
2 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/private/eval.ss
View File

@ -46,11 +46,8 @@
(let* ([text (drscheme:language:text/pos-text input)] (let* ([text (drscheme:language:text/pos-text input)]
[start (drscheme:language:text/pos-start input)] [start (drscheme:language:text/pos-start input)]
[end (drscheme:language:text/pos-end input)] [end (drscheme:language:text/pos-end input)]
[name (if (method-in-interface? 'get-port-name [text-port (open-input-text-editor text start end values
(object-interface text)) (send text get-port-name))])
(send text get-port-name)
(send text get-filename))]
[text-port (open-input-text-editor text start end values name)])
(port-count-lines! text-port) (port-count-lines! text-port)
(let* ([line (send text position-paragraph start)] (let* ([line (send text position-paragraph start)]
[column (- start (send text paragraph-start-position line))] [column (- start (send text paragraph-start-position line))]

4
collects/drscheme/private/unit.ss
View File

@ -2256,9 +2256,7 @@ module browser threading seems wrong.
(let ([start 0]) (let ([start 0])
(send definitions-text split-snip start) (send definitions-text split-snip start)
(let* ([name (if (method-in-interface? 'get-port-name (object-interface definitions-text)) (let* ([name (send definitions-text get-port-name)]
(send definitions-text get-port-name)
(send definitions-text get-filename))]
[text-port (open-input-text-editor definitions-text start 'end values name #t)]) [text-port (open-input-text-editor definitions-text start 'end values name #t)])
(port-count-lines! text-port) (port-count-lines! text-port)
(let* ([line (send definitions-text position-paragraph start)] (let* ([line (send definitions-text position-paragraph start)]