summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-07-21 14:15:46 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-07-21 14:15:46 +0000
commit6f4d9622004098db34124c5f25ef654197e5cfe6 (patch)
tree08d447f1f111fda6c6dc9d0dc9cc7e3a02a802dd
parent93df19d0880b8381acbd5fffa71a845de2475435 (diff)
downloadguile-6f4d9622004098db34124c5f25ef654197e5cfe6.tar.gz
* readline.scm (make-readline-port): Set prompt string to "... "
after first read line. (Thanks to Richard Polton.)
-rw-r--r--ice-9/ChangeLog5
-rw-r--r--ice-9/readline.scm1
2 files changed, 6 insertions, 0 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 377746824..93c861b2c 100644
--- 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 29e36f203..4426600dd 100644
--- 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