* Make the readline port input-only.

diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 1fad436..4c227c6 100644 (file)
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-18  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * readline.scm (make-readline-port): Make readline port
+       input-only.
+
 2000-12-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * readline.scm (activate-readline):  Lookup 'use-emacs-interface

diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index 23adf43..cbb0c43 100644 (file)
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -83,8 +83,8 @@
                    (set! string-index (+ 1 string-index))
                    res))))))         
       (make-soft-port
-       (vector write-char display #f get-character #f)
-       "rw"))))
+       (vector #f #f #f get-character #f)
+       "r"))))
 
 ;;; We only create one readline port.  There's no point in having
 ;;; more, since they would all share the tty and history ---