[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Patch for ice-9/format.scm (~&)
From: |
Matthias Koeppe |
Subject: |
Patch for ice-9/format.scm (~&) |
Date: |
05 Jun 2001 13:49:36 +0200 |
This little patch fixes the behavior of the ~& (fresh line) format
directive. FORMAT used to maintain the current column in a global
variable, thus formats to different ports and other means of output
did not mix very well (see my recent test-suite addition). This patch
makes FORMAT get the initial output column from the port via
PORT-COLUMN. (See a separate message for a patch that enables
PORT-COLUMN on output ports.)
Index: ice-9/format.scm
===================================================================
RCS file: /cvs/guile/guile-core/ice-9/format.scm,v
retrieving revision 1.9
diff -u -r1.9 format.scm
--- ice-9/format.scm 2001/05/25 00:15:32 1.9
+++ ice-9/format.scm 2001/06/05 08:33:54
@@ -177,6 +177,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
+ (set! format:output-col ; get current column from port
+ (or (port-column port) 0))
(let ((arg-pos (format:format-work fmt args))
(arg-len (length args)))
(cond
--
Matthias Köppe -- http://www.math.uni-magdeburg.de/~mkoeppe
- Patch for ice-9/format.scm (~&),
Matthias Koeppe <=
- Re: Patch for ice-9/format.scm (~&), Marius Vollmer, 2001/06/09
- Re: Patch for ice-9/format.scm (~&), Matthias Koeppe, 2001/06/11
- Re: Patch for ice-9/format.scm (~&), Marius Vollmer, 2001/06/13
- Re: Patch for ice-9/format.scm (~&), Rob Browning, 2001/06/13
- Re: Patch for ice-9/format.scm (~&), Matthias Koeppe, 2001/06/14
- Re: Patch for ice-9/format.scm (~&), Marius Vollmer, 2001/06/14
- Re: Patch for ice-9/format.scm (~&), Matthias Koeppe, 2001/06/15