..

original commit: c2e72bc118510ff97bd7b631ae49881e974c59ce
2004-01-14 16:44:45 +00:00 · 2004-01-14 16:44:45 +00:00 · ced1001106
commit ced1001106
parent dd84f014e1
1 changed files with 2 additions and 1 deletions
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@ -47,7 +47,8 @@
        (opt-lambda (text [start 0] [in-end #f])
          (let* ([end (or in-end (send text last-position))]
                 [port (open-input-text-editor text start end)])
-            (with-handlers ([exn:read? (lambda (x) #f)])
+            (with-handlers ([exn:read:eof? (lambda (x) #f)]
+                            [exn:read? (lambda (x) #t)])
              (let loop ()
                (let ([s (read port)])
                  (or (eof-object? s)