Fix fencepost error.

diff --git a/v7/src/edwin/syntax.scm b/v7/src/edwin/syntax.scm
index fb84d0e0c37be2fdb0a8d69663d83c9aaa8bfb55..d7c5ac2ed8eadbca13104572e4ac6af95c7364ff 100644 (file)
--- 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