From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 03:43:46 +0000 (+0000)
Subject: Fix fencepost error.
X-Git-Tag: 20090517-FFI~3527
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d296bfb1d91dcdaaaa32e7022096dfa6c086ea39;p=mit-scheme.git

Fix fencepost error.
---

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index 9da518b18..5c6aa8c2d 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fill.scm,v 1.65 2000/06/15 03:17:57 cph Exp $
+;;; $Id: fill.scm,v 1.66 2000/06/15 03:43:46 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -544,13 +544,13 @@ With argument, turn auto-fill mode on iff argument is positive."
 		 (v
 		  (group-column->index group
 				       ls-index
-				       end-index
+				       index
 				       0
 				       target-column
 				       tab-width
 				       image-strings)))
 	    (if (and (fix:>= (vector-ref v 1) target-column)
-		     (fix:< (vector-ref v 0) end-index)
+		     (fix:<= (vector-ref v 0) index)
 		     (re-search-backward "[^ \t][ \t]+"
 					 (make-mark group (vector-ref v 0))
 					 (make-mark group ls-index)))