From d286403096cd743864b7c65d5bb37aa281d2bee1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 May 1991 22:15:58 +0000
Subject: [PATCH] Change PRESERVING-MATCH-DATA to save permanent marks instead
 of indexes.

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

diff --git a/v7/src/edwin/regexp.scm b/v7/src/edwin/regexp.scm
index a3f0cd8bd..709185721 100644
--- a/v7/src/edwin/regexp.scm
+++ b/v7/src/edwin/regexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regexp.scm,v 1.56 1991/05/10 22:05:42 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regexp.scm,v 1.57 1991/05/10 22:15:58 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -88,7 +88,7 @@
 	     (if group
 		 (let ((v (make-vector 20 false)))
 		   (do ((i 0 (+ i 1)))
-		       ((< i 20))
+		       ((= i 20))
 		     (let ((index (vector-ref registers i)))
 		       (if index
 			   (vector-set!
-- 
2.25.1