*** empty log message ***

original commit: 120ea5d3ef06fb68c1edf96f1c1c4d0a0c52f8e8
20 years ago · d380cff70b
parent cb57eb49ea
commit d380cff70b
1 changed files with 1 additions and 2 deletions
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@ -232,8 +232,7 @@
                        (do-match ip first-pos special-comment-action #f))
                       (else (lexer ip))))
                    ((not (char? first-char))
-                     (let ((spec (read-char-or-special ip)))
+                     (do-match ip first-pos special-action (read-char-or-special ip)))
                       (do-match ip first-pos special-action (read-char-or-special ip))))
                    (else
                     (let lexer-loop (
                                      ;; current-state