mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

(format:out-substr): Update the column counter

Browse source 
correctly. This fixes the behavior of ~T (tabbing) after ~F, for
instance.
Patch by Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de>.
This commit is contained in:
Rob Browning 2004-01-13 16:56:11 +00:00
parent f801adf122
commit 26a03f0796
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/format.scm
View file

@ -94,7 +94,7 @@
(do ((k i (+ k 1))) (do ((k i (+ k 1)))
((= k n)) ((= k n))
(write-char (string-ref str k) format:port)) (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 ;(define (format:out-fill n ch) ; this allocates a new string
; (format:out-str (make-string n ch))) ; (format:out-str (make-string n ch)))