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 <[EMAIL PROTECTED]>
* 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)
_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-guile
