From c5b9d7f59aee1f56447abe7305b5b734c5399eb9 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 26 Jun 2002 23:25:33 +0000 Subject: [PATCH] *** empty log message *** original commit: 63e5cec99a88cc06b690ea8e4490d8867f5d0e20 --- collects/parser-tools/lex.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 85d4446..9c52862 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -12,7 +12,9 @@ (provide lexer lexer-src-pos define-lex-abbrev define-lex-abbrevs position-offset position-line position-col position? - define-tokens define-empty-tokens) + define-tokens define-empty-tokens file-path) + + (define file-path (make-parameter #f)) (define-syntaxes (lexer-exp lexer-src-pos-exp) (let ((build-lexer @@ -188,7 +190,7 @@ (if (not longest-match-action) (raise-read-error (format "lexer: No match found in input starting with: ~a" match) - #f + (file-path) (position-line first-pos) (position-col first-pos) (position-offset first-pos)