[patch] maintain output column

[Thien-Thi Nguyen]

before, we see:
(guile-user) (port-column (current-output-port))
13

after, we see:
(guile-user) (port-column (current-output-port))
0

here is the ChangeLog entry for guile 1.4.x:

2007-11-13  Thien-Thi Nguyen  <address@hidden>

        * running-repls.scm (scm-style-repl consume-trailing-whitespace):
        On #\newline, zero the output port's column.

i'm sure you can figure out where this would fit for other versions.

thi


________________________________________________________________
--- running-repls.scm   12 Sep 2007 12:50:46 -0000      1.22
+++ running-repls.scm   13 Nov 2007 14:12:55 -0000      1.23
@@ -287,6 +287,9 @@
           (read-char)
           (consume-trailing-whitespace))
          ((char=? ch #\newline)
+          ;; Conspire w/ the typical user interface (ok, let's just be frank:
+          ;; Emacs' comint.el or derivative) to keep things straight.
+          (set-port-column! (current-output-port) 0)
           (read-char)))))
 
     (define (-read)