From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Neil Jerram Newsgroups: gmane.lisp.guile.bugs,gmane.lisp.guile.devel,gmane.lisp.guile.user Subject: Re: Setting the readline prompt ... Date: 08 Jan 2003 21:35:07 +0000 Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Message-ID: References: <20030107184239.GA26279@www> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1042063290 12449 80.91.224.249 (8 Jan 2003 22:01:30 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 8 Jan 2003 22:01:30 +0000 (UTC) Cc: guile-devel@gnu.org Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18WOGN-0003EX-00 for ; Wed, 08 Jan 2003 23:01:27 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18WO5h-0004m2-02 for guile-bugs@m.gmane.org; Wed, 08 Jan 2003 16:50:25 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 18WO3Y-00042h-00 for bug-guile@gnu.org; Wed, 08 Jan 2003 16:48:12 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 18WO2v-0003eu-00 for bug-guile@gnu.org; Wed, 08 Jan 2003 16:47:35 -0500 Original-Received: from mail.uklinux.net ([80.84.72.21] helo=s1.uklinux.net) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18WNr7-00007J-00; Wed, 08 Jan 2003 16:35:21 -0500 Original-Received: from laruns.ossau.uklinux.net (bts-0335.dialup.zetnet.co.uk [194.247.49.79]) by s1.uklinux.net (8.11.6/8.11.6) with ESMTP id h08LZ9g12058; Wed, 8 Jan 2003 21:35:10 GMT Original-Received: from laruns.ossau.uklinux.net.ossau.uklinux.net (localhost [127.0.0.1])ESMTP id E3D73DC4D4; Wed, 8 Jan 2003 21:35:07 +0000 (GMT) Original-To: rm@fabula.de, Marius Vollmer , Rob Browning In-Reply-To: Original-Lines: 41 User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 Original-cc: guile-user@gnu.org Original-cc: Guile Bugs X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Bug reports for GUILE, GNU's Ubiquitous Extension Language List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.bugs:615 gmane.lisp.guile.devel:1860 gmane.lisp.guile.user:1509 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:1860 >>>>> "Neil" == Neil Jerram 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 Bug-guile@gnu.org http://mail.gnu.org/mailman/listinfo/bug-guile