From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 3 Jan 2003 21:32:12 +0000 (+0000)
Subject: Fix fencepost error -- output must be less than width of output device.
X-Git-Tag: 20090517-FFI~2073
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=da6b95d02dfd84c71cc4dbdc38b77ba8401136fe;p=mit-scheme.git

Fix fencepost error -- output must be less than width of output device.
---

diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index 416d5aa88..a4200c52c 100644
--- a/v7/src/runtime/output.scm
+++ b/v7/src/runtime/output.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: output.scm,v 14.29 2003/01/03 01:37:38 cph Exp $
+$Id: output.scm,v 14.30 2003/01/03 21:32:12 cph Exp $
 
 Copyright (c) 1986,1987,1988,1989,1990 Massachusetts Institute of Technology
 Copyright (c) 1991,1992,1993,1999,2001 Massachusetts Institute of Technology
@@ -197,7 +197,7 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 			(pair? strings))
 		   (let ((width*
 			  (+ width cs-width (string-length (car strings)))))
-		     (if (<= width* max-width)
+		     (if (< width* max-width)
 			 (loop (cdr strings) width* (+ n-cols 1))
 			 (max n-cols min-minor)))
 		   (max n-cols min-minor)))
@@ -254,12 +254,12 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 			   (apply max (map string-length col)))
 			 cols)))
 	      (if (or (limit-n-minor? n-minor)
-		      (<= (apply +
-				 lm-width
-				 (* cs-width (- (length cols) 1))
-				 rm-width
-				 col-widths)
-			  max-width))
+		      (< (apply +
+				lm-width
+				(* cs-width (- (length cols) 1))
+				rm-width
+				col-widths)
+			 max-width))
 		  (write-cols cols col-widths)
 		  (loop (step-minor n-minor))))
 	    (single-major))))