Use readline-input' for the port name, since readline' makes error

messages confusing. svn: r17977
2010-02-05 03:21:56 +00:00 · 2010-02-05 03:21:56 +00:00 · 5c54f3a5ac
commit 5c54f3a5ac
parent c88a5a6856
1 changed files with 1 additions and 1 deletions
--- a/collects/readline/pread.ss
+++ b/collects/readline/pread.ss
@ -191,7 +191,7 @@
                        (bytes-set! tgt left LF)
                        (set! buffer #f)
                        (add1 left)]))])))
-    (make-input-port 'readline reader #f close!)))
+    (make-input-port 'readline-input reader #f close!)))

 ;; --------------------------------------------------------------------------
 ;; Reading functions