Fix fencepost error in `re-compile-char-set'.

diff --git a/v7/src/runtime/rgxcmp.scm b/v7/src/runtime/rgxcmp.scm
index 518ca5ea914f74e8a4669fd642024c2c8ef8dd10..0b636a680e5c62807bbb8ec509e89cbf13ac3550 100644 (file)
--- 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