Re: Setting the readline prompt ...

[Neil Jerram]

>>>>> "Neil" == Neil Jerram <address@hidden> 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