From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 17 May 1991 23:23:05 +0000 (+0000)
Subject: Fix fencepost error.
X-Git-Tag: 20090517-FFI~10551
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9da70f53a337739115f4fcebfc450747184b5b24;p=mit-scheme.git

Fix fencepost error.
---

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