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

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index d0c3006..4541633 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -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>
 
        * readline.scm (make-readline-port): Don't set prompt to "... " if

diff --git a/ice-9/readline.scm b/ice-9/readline.scm
index e851ba3..a2b326d 100644 (file)
--- a/ice-9/readline.scm
+++ b/ice-9/readline.scm
@@ -53,13 +53,13 @@
                                     input-port
                                     output-port
                                     read-hook))
-                   (if (not (zero? (string-length read-string)))
-                       (set! prompt "... "))
                    (set! string-index 0)
                    (if (not (eof-object? read-string))
                        (begin
                          (or (string=? read-string "")
-                             (add-history read-string))
+                             (begin
+                               (add-history read-string)
+                               (set! prompt "... ")))
                          (get-character))
                        read-string)))
                 (else