From a027d5cf661f6f53772d43731aa3bb1142063368 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Thu, 16 Dec 2004 20:57:59 +0000 Subject: [PATCH] *** empty log message *** original commit: b67c7fcd2c41d3395ed4df027ca304e17cf2606d --- collects/parser-tools/lex.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index c1ca19e..ccff8f8 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -54,8 +54,6 @@ (define-for-syntax (make-lexer-trans src-pos?) (lambda (stx) (syntax-case stx () - ((_) - (raise-syntax-error #f "accepts the empty string" stx)) ((_ re-act ...) (begin (for-each @@ -98,7 +96,7 @@ name-lst))) (let-values (((trans start action-names no-look disappeared-uses) (build-lexer re-actname-lst))) - #;(when (vector-ref action-names start) + (when (vector-ref action-names start) (raise-syntax-error #f "accepts the empty string" stx)) (with-syntax ((start-state-stx start) (trans-table-stx trans)