>>>>> "Neil" == Neil Jerram <[EMAIL PROTECTED]> writes:
Neil> You can see the effect of set-readline-prompt! like this:
guile> (begin (set-readline-prompt! "1> " "2> ") (readline))
1> something
Neil> "something"
guile> (begin (set-readline-prompt! "1> " "2> ") (read))
2> something
Neil> something
Er... except that there's a bug for which I'm just about the commit
the fix:
Index: readline.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/guile-readline/readline.c,v
retrieving revision 1.45
diff -u -r1.45 readline.c
--- readline.c 3 Nov 2002 22:09:20 -0000 1.45
+++ readline.c 8 Jan 2003 21:31:32 -0000
@@ -184,7 +184,7 @@
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;
Marius/Rob, should this go into the stable branch as well?
The symptom without this fix is:
guile> (readline)
ERROR: In procedure %readline:
ERROR: Output port is not open or not a file port
ABORT: (misc-error)
Neil
_______________________________________________
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
