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

Fix fencepost error.
---

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index 5c6aa8c2d..dcfb38384 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fill.scm,v 1.66 2000/06/15 03:43:46 cph Exp $
+;;; $Id: fill.scm,v 1.67 2000/06/15 03:44:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -531,7 +531,6 @@ With argument, turn auto-fill mode on iff argument is positive."
 (define (wrap-region-as-paragraph p-start p-end fill-prefix fill-column)
   (let ((m (mark-left-inserting-copy (line-end p-start 0)))
 	(group (mark-group p-start))
-	(end-index (mark-index p-end))
 	(fp-length (and fill-prefix (string-length fill-prefix)))
 	(target-column (fix:+ fill-column 1)))
     (let ((tab-width (group-tab-width group))