From 9da70f53a337739115f4fcebfc450747184b5b24 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 17 May 1991 23:23:05 +0000
Subject: [PATCH] Fix fencepost error.

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

diff --git a/v7/src/edwin/syntax.scm b/v7/src/edwin/syntax.scm
index fb84d0e0c..d7c5ac2ed 100644
--- a/v7/src/edwin/syntax.scm
+++ b/v7/src/edwin/syntax.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/syntax.scm,v 1.71 1991/05/17 18:39:35 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/syntax.scm,v 1.72 1991/05/17 23:23:05 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -68,7 +68,7 @@
 	(ah (char->ascii ch))
 	(entry ((ucode-primitive string->syntax-entry) string)))
     (do ((a (char->ascii cl) (+ a 1)))
-	((>= a ah) unspecific)
+	((> a ah) unspecific)
       (vector-set! entries a entry))))
 
 (define standard-syntax-table
-- 
2.25.1