From d380cff70b78a0d728af583148e19a790ff23035 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Thu, 24 Mar 2005 00:33:04 +0000 Subject: [PATCH] *** empty log message *** original commit: 120ea5d3ef06fb68c1edf96f1c1c4d0a0c52f8e8 --- collects/parser-tools/lex.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 95b2834..e0a1e28 100644 --- 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