diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-07-21 14:15:46 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-07-21 14:15:46 +0000 |
commit | 6f4d9622004098db34124c5f25ef654197e5cfe6 (patch) | |
tree | 08d447f1f111fda6c6dc9d0dc9cc7e3a02a802dd | |
parent | 93df19d0880b8381acbd5fffa71a845de2475435 (diff) | |
download | guile-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/ChangeLog | 5 | ||||
-rw-r--r-- | ice-9/readline.scm | 1 |
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 |