*** empty log message ***

original commit: b67c7fcd2c41d3395ed4df027ca304e17cf2606d
20 years ago · a027d5cf66
parent 697cf326b4
commit a027d5cf66
1 changed files with 1 additions and 3 deletions
--- 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)