From 65f9f8240a7ce8ce54769c7899bfdeb094024dfb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 15 Mar 1991 23:28:50 +0000
Subject: [PATCH] Fix fencepost error in `re-compile-char-set'.

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

diff --git a/v7/src/runtime/rgxcmp.scm b/v7/src/runtime/rgxcmp.scm
index 518ca5ea9..0b636a680 100644
--- a/v7/src/runtime/rgxcmp.scm
+++ b/v7/src/runtime/rgxcmp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rgxcmp.scm,v 1.104 1991/02/15 18:14:08 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rgxcmp.scm,v 1.105 1991/03/15 23:28:50 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -208,7 +208,7 @@
 			    (begin
 			      (let ((end (char->ascii (caddr pattern))))
 				(let loop ((index (char->ascii (car pattern))))
-				  (if (fix:< index end)
+				  (if (fix:<= index end)
 				      (begin
 					(vector-8b-set! char-set
 							index
-- 
2.25.1