*** empty log message ***

original commit: 275c51b82d09294bdb30bf026274e0ac8ab67eba

collects/parser-tools/lex.ss

@@ -97,7 +97,7 @@
              (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))
+                 (printf "Warning: lexer might accept the empty string ~a.~n" stx))
                (with-syntax ((start-state-stx start)
                              (trans-table-stx trans)
                              (no-lookahead-stx no-look)

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

@@ -44,12 +44,12 @@
                                                                         entry
                                                                         entry)
                                                        entry))))
-                                               char-ranges)))
+                                 char-ranges)))
-                                      all-chars/to))
+                        all-chars/to))
-                          (lambda (a b)
+                 (lambda (a b)
-                            (< (vector-ref a 0) (vector-ref b 0))))))
+                   (< (vector-ref a 0) (vector-ref b 0))))))
-                   (vector-set! state-table from-state (list->vector flat-all-chars/to))))
+          (vector-set! state-table from-state (list->vector flat-all-chars/to))))
-               (dfa-transitions dfa))
+      (dfa-transitions dfa))
      state-table))