mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* readline.scm (make-readline-port): Bugfixed last change...

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-10-30 06:30:00 +00:00
parent dd195c9322
commit cad4d45bd6
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
Fri Oct 30 15:15:37 1998 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* readline.scm (make-readline-port): Bugfixed last change...
1998-10-28 Mikael Djurfeldt <mdj@barbara.nada.kth.se> 1998-10-28 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* readline.scm (make-readline-port): Don't set prompt to "... " if * readline.scm (make-readline-port): Don't set prompt to "... " if

6
ice-9/readline.scm
View file

@ -53,13 +53,13 @@
input-port input-port
output-port output-port
read-hook)) read-hook))
(if (not (zero? (string-length read-string)))
(set! prompt "... "))
(set! string-index 0) (set! string-index 0)
(if (not (eof-object? read-string)) (if (not (eof-object? read-string))
(begin (begin
(or (string=? read-string "") (or (string=? read-string "")
(add-history read-string)) (begin
(add-history read-string)
(set! prompt "... ")))
(get-character)) (get-character))
read-string))) read-string)))
(else (else