From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Oct 1993 12:17:49 +0000 (+0000)
Subject: Fix fencepost bug.
X-Git-Tag: 20090517-FFI~7738
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=03cd1c8fd733f027f1c186bbaba606368f05444f;p=mit-scheme.git

Fix fencepost bug.
---

diff --git a/v7/src/edwin/image.scm b/v7/src/edwin/image.scm
index da4c6baa9..1b5605faa 100644
--- a/v7/src/edwin/image.scm
+++ b/v7/src/edwin/image.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: image.scm,v 1.130 1993/01/12 10:50:40 cph Exp $
+;;;	$Id: image.scm,v 1.131 1993/10/16 12:17:49 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -178,8 +178,7 @@
 		  (substring-column->index text start gap-start
 					   start-column column tab-width)))
 	     (if (and (fix:< (vector-ref result 1) column)
-		      (not (char=? #\newline
-				   (string-ref text (vector-ref result 0)))))
+		      (fix:= (vector-ref result 0) gap-start))
 		 (let ((result
 			(substring-column->index text
 						 gap-end