From 8bedef77a4945f3acca260d873e4b4615578873a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 May 1991 22:46:19 +0000
Subject: [PATCH] Fix typo in INSERT-REGION.

---
 v7/src/edwin/simple.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index a00994855..511fbdffb 100644
--- a/v7/src/edwin/simple.scm
+++ b/v7/src/edwin/simple.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.36 1991/04/24 00:39:02 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.37 1991/05/08 22:46:19 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -136,7 +136,7 @@
 	       (group-insert-substring! (mark-group point)
 					(mark-index point)
 					text start end))
-	      ((<= gap-end start)
+	      ((<= gap-start start)
 	       (group-insert-substring! (mark-group point)
 					(mark-index point)
 					text
-- 
2.25.1