From 552ae44cdec680aa890d35ab5062369e18cd77dc Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 19 Mar 2003 18:29:04 +0000 Subject: [PATCH] (format:out-substr): Update the column counter correctly. This fixes the behavior of ~T (tabbing) after ~F, for instance. Thanks to Matthias Koeppe! --- ice-9/format.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/format.scm b/ice-9/format.scm index efb7c16a5..486dc7277 100644 --- a/ice-9/format.scm +++ b/ice-9/format.scm @@ -89,7 +89,7 @@ (do ((k i (+ k 1))) ((= k n)) (write-char (string-ref str k) format:port)) - (set! format:output-col (+ format:output-col n))) + (set! format:output-col (+ format:output-col (- n i)))) ;(define (format:out-fill n ch) ; this allocates a new string ; (format:out-str (make-string n ch)))