* readline.scm (make-readline-port): PROMPT becomes PROMPT2 as

soon as GET-CHARACTER returns any character at all that was
previously read.  This makes the continuation prompt appear
properly for partial expressions.  Thanks to Neil Jerram!

diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index 8d499d5..6d482c4 100644 (file)
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -98,15 +98,14 @@
                    (if (not (eof-object? read-string))
                        (begin
                          (or (string=? read-string "")
-                             (begin
-                               (add-history read-string)
-                               (set! prompt prompt2)))
+                             (add-history read-string))
                          (get-character))
                        read-string)))
                 (else 
                  (let ((res (string-ref read-string string-index)))
                    (set! string-index (+ 1 string-index))
-                   res))))))         
+                   (set! prompt prompt2)
+                   res))))))
       (make-soft-port
        (vector #f #f #f get-character #f)
        "r"))))