From 55f1ecbe8df60dcf489c7d08570d045793fb9b93 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 24 Apr 2002 01:57:16 +0000 Subject: [PATCH] *** empty log message *** original commit: cc6b1b1297dafa402acf3b9c2801eed08e1be9e1 --- collects/parser-tools/lex.ss | 22 ++++++++++++++++++---- 1 file changed, 18 insertions(+), 4 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 0bc9154..67d934d 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -39,10 +39,24 @@ (no-lookahead-stx (table-no-lookahead table)) (actions-stx `(vector ,@(vector->list (table-actions table))))) (if wrap? - (syntax (lambda (lb) - (lexer-body lb start-state-stx trans-table-stx eof-table-stx actions-stx no-lookahead-stx #t))) - (syntax (lambda (lb) - (lexer-body lb start-state-stx trans-table-stx eof-table-stx actions-stx no-lookahead-stx #f))))))))))))) + (syntax + (let-values (((a b c d e) + (values start-state-stx + trans-table-stx + eof-table-stx + actions-stx + no-lookahead-stx))) + (lambda (lb) + (lexer-body lb a b c d e #t)))) + (syntax + (let-values (((a b c d e) + (values start-state-stx + trans-table-stx + eof-table-stx + actions-stx + no-lookahead-stx))) + (lambda (lb) + (lexer-body lb a b c d e #f)))))))))))))) (values (build-lexer #f) (build-lexer #t))))