From 245b7bf8696fb79447fec64232bc24ae4e2a5285 Mon Sep 17 00:00:00 2001
From: Neil Jerram <neil@ossau.uklinux.net>
Date: Thu, 9 Jan 2003 00:00:32 +0000
Subject: [PATCH] Fix input/output port typo.

---
 guile-readline/ChangeLog  | 5 +++++
 guile-readline/readline.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 9f3dc5523..7b02403fd 100644
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-08  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* readline.c (scm_readline): Check that scm_cur_outp is an output
+	port, not an input one.
+
 2002-12-08  Rob Browning  <rlb@defaultvalue.org>
 
 	* configure.in (GUILE_EFFECTIVE_VERSION): AC_SUBST.
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index c9245caff..2088a6a9a 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -183,7 +183,7 @@ SCM_DEFINE (scm_readline, "%readline", 0, 4, 0,
 		      SCM_EOL);
     }
   
-  if (!((SCM_UNBNDP (outp) && SCM_OPINFPORTP (scm_cur_outp))
+  if (!((SCM_UNBNDP (outp) && SCM_OPOUTFPORTP (scm_cur_outp))
 	|| SCM_OPOUTFPORTP (outp)))
     {
       --in_readline;