guile/guile-core/guile-readline readline.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/01/28 09:56:34

Modified files:
        guile-core/guile-readline: readline.scm 

Log message:
        * 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!

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/guile-readline/readline.scm.diff?r1=1.10&r2=1.11

Patches:
Index: guile/guile-core/guile-readline/readline.scm
diff -u guile/guile-core/guile-readline/readline.scm:1.10 
guile/guile-core/guile-readline/readline.scm:1.11
--- guile/guile-core/guile-readline/readline.scm:1.10   Fri Jan 26 08:58:48 2001
+++ guile/guile-core/guile-readline/readline.scm        Sun Jan 28 09:56:34 2001
@@ -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"))))