* readline.scm: Bugfix: Avoid getting the continued-lines prompt

at multiple calls to read.
(promtp2): Variable for continued-lines prompt.
(make-readline-port): Use prompt2.
(set-readline-prompt!): New optional arg which sets
continued-lines prompt.

diff --git a/ice-9/readline.scm b/ice-9/readline.scm
index 48e424d..a544fec 100644 (file)
--- a/ice-9/readline.scm
+++ b/ice-9/readline.scm
@@ -28,6 +28,7 @@
 ;;; There should probably be low-level support instead of this code.
 
 (define prompt "")
+(define prompt2 "")
 (define input-port (current-input-port))
 (define output-port (current-output-port))
 (define read-hook #f)
@@ -59,7 +60,7 @@
                          (or (string=? read-string "")
                              (begin
                                (add-history read-string)
-                               (set! prompt "... ")))
+                               (set! prompt prompt2)))
                          (get-character))
                        read-string)))
                 (else 
@@ -121,8 +122,10 @@
                                    inp)
                                args))))))
 
-(define-public (set-readline-prompt! p)
-  (set! prompt p))
+(define-public (set-readline-prompt! p . rest)
+  (set! prompt p)
+  (if (not (null? rest))
+      (set! prompt2 (car rest))))
 
 (define-public (set-readline-input-port! p)
   (set! input-port p))