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

Correcting arguments passed to open-input-text-editor.

Browse Source 
svn: r10496
This commit is contained in:
Danny Yoo 2008-06-29 01:43:50 +00:00
parent 0e42c65d3b
commit 8024601262
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@
(get-source-name txt) line col pos 1))) (get-source-name txt) line col pos 1)))
(let* ([source-name (get-source-name text)] (let* ([source-name (get-source-name text)]
[stx (read-syntax source-name [stx (read-syntax source-name
(open-input-text-editor text 0 (send text last-position) source-name))]) (open-input-text-editor text 0 'end values source-name))])
(when (eof-object? stx) (when (eof-object? stx)
(raise-read-error (raise-read-error
(if splice? (if splice?