From 4866d90396a25ba2dcb505abc2fd64f7ea0c15c8 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 20 Oct 2004 19:04:22 +0000 Subject: [PATCH] *** empty log message *** original commit: 9da660e6edac2291830ce79132b1598ca1d39311 --- collects/parser-tools/lex.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index ecde806..e94dfb2 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -302,6 +302,8 @@ (define (do-match ip first-pos action value) + #;(printf "(action ~a ~a ~a ~a)~n" + (position-offset first-pos) (position-offset (get-position ip)) value ip) (action first-pos (get-position ip) value ip)) (define (get-position ip)