*** empty log message ***

original commit: 35074d0ff2d11d87840ac1dc1a719751425aa70b
23 years ago · 3b49e208ac
parent 55f1ecbe8d
commit 3b49e208ac
1 changed files with 1 additions and 1 deletions
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@ -121,7 +121,7 @@
                       ;; including the one just read
                       (length 1)
                       ;; how many characters are in the longest match
-                       (longest-match-length 0))
+                       (longest-match-length 1))
        (let ((next-state
               (cond
                 ((eof-object? char)