mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* readline.scm (make-readline-port): Set prompt string to "... "

Browse source 
after first read line.  (Thanks to Richard Polton.)
This commit is contained in:
Mikael Djurfeldt 1998-07-21 14:15:46 +00:00
parent 93df19d088
commit 6f4d962200
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
1998-07-21 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* readline.scm (make-readline-port): Set prompt string to "... "
after first read line. (Thanks to Richard Polton.)
1998-07-19 Jim Blandy <jimb@zwingli.cygnus.com> 1998-07-19 Jim Blandy <jimb@zwingli.cygnus.com>
* lineio.scm (make-line-buffering-input-port): Don't use * lineio.scm (make-line-buffering-input-port): Don't use

1
ice-9/readline.scm
View file

@ -53,6 +53,7 @@
input-port input-port
output-port output-port
read-hook)) read-hook))
(set! prompt "... ")
(set! string-index 0) (set! string-index 0)
(if (not (eof-object? read-string)) (if (not (eof-object? read-string))
(begin (begin