mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

(format:out-substr): Update the column counter correctly. This fixes

Browse source 
the behavior of ~T (tabbing) after ~F, for instance.  Thanks to
Matthias Koeppe!
This commit is contained in:
Marius Vollmer 2003-03-19 18:29:04 +00:00
parent 6c61859f03
commit 552ae44cde
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

@ -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)))