*** empty log message ***

original commit: 1ec30fb00dd2e72f294ed06a6d8f78ec659dd076

collects/parser-tools/lex.ss

@@ -98,6 +98,8 @@
 				       name-lst)))
              (let-values (((trans start action-names no-look disappeared-uses)
                            (build-lexer re-actname-lst)))
+               #;(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)
                              (no-lookahead-stx no-look)
@@ -249,7 +251,7 @@
                                       ;; including the one just read
                                       (length-chars 1)
                                       ;; how many characters are in the longest match
-                                      (longest-match-length 1))
+                                      (longest-match-length 0))
                        (let ((next-state 
                               (cond
                                 ((eof-object? char) #f)

collects/parser-tools/private-lex/deriv.ss

@@ -334,5 +334,6 @@
   (define t13 (build-test-dfa `((intersection (concatenation (intersection) "111" (intersection))
                                               (complement (union (concatenation (intersection) "01")
                                        (repeat 1 +inf.0 "1")))))))
+  (define t14 (build-test-dfa `((complement "1"))))
 |#
   )

collects/parser-tools/private-lex/util.ss

@@ -107,6 +107,5 @@
                         null)
                '(5 1 2 3 4 1 2 3 2 1)))
   
-
   
     )