guile/guile-core/ice-9 format.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/09 11:14:36

Modified files:
        guile-core/ice-9: format.scm 

Log message:
        Use (ice-9 and-let-star).
        (format:out): Initialize format:output-col with current column of
        `port', if it has one.  Else leave it alone.  Thanks to Matthias
        Köppe!

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/format.scm.diff?cvsroot=OldCVS&tr1=1.10&tr2=1.11&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/format.scm
diff -u guile/guile-core/ice-9/format.scm:1.10 
guile/guile-core/ice-9/format.scm:1.11
--- guile/guile-core/ice-9/format.scm:1.10      Mon Jun  4 15:09:39 2001
+++ guile/guile-core/ice-9/format.scm   Sat Jun  9 11:14:36 2001
@@ -12,6 +12,7 @@
 ; Version 3.0
 
 (define-module (ice-9 format)
+  :use-module (ice-9 and-let-star)
   :autoload (ice-9 pretty-print) (pretty-print))
 
 (begin-deprecated
@@ -182,6 +183,8 @@
   (set! format:port port)              ; global port for output routines
   (set! format:case-conversion #f)     ; modifier case conversion procedure
   (set! format:flush-output #f)                ; ~! reset
+  (and-let* ((col (port-column port))) ; get current column from port
+    (set! format:output-col col))
   (let ((arg-pos (format:format-work fmt args))
        (arg-len (length args)))
     (cond