From da6b95d02dfd84c71cc4dbdc38b77ba8401136fe Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 3 Jan 2003 21:32:12 +0000 Subject: [PATCH] Fix fencepost error -- output must be less than width of output device. --- v7/src/runtime/output.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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)))) -- 2.25.1