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

after first read line.  (Thanks to Richard Polton.)

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 3777468..93c861b 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -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>
 
        * lineio.scm (make-line-buffering-input-port): Don't use

diff --git a/ice-9/readline.scm b/ice-9/readline.scm
index 29e36f2..4426600 100644 (file)
--- a/ice-9/readline.scm
+++ b/ice-9/readline.scm
@@ -53,6 +53,7 @@
                                     input-port
                                     output-port
                                     read-hook))
+                   (set! prompt "... ")
                    (set! string-index 0)
                    (if (not (eof-object? read-string))
                        (begin