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

svn: r10496
2008-06-29 01:43:50 +00:00 · 2008-06-29 01:43:50 +00:00 · 8024601262
commit 8024601262
parent 0e42c65d3b
1 changed files with 1 additions and 1 deletions
--- a/collects/stepper/private/xml-snip-helpers.ss
+++ b/collects/stepper/private/xml-snip-helpers.ss
@ -24,7 +24,7 @@
           (get-source-name txt) line col pos 1)))
      (let* ([source-name (get-source-name text)]
             [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)
          (raise-read-error
           (if splice?