*** empty log message ***

original commit: 275c51b82d09294bdb30bf026274e0ac8ab67eba
20 years ago · e071fd3412
parent a027d5cf66
commit e071fd3412
2 changed files with 7 additions and 7 deletions
--- a/collects/parser-tools/lex.ss
+++ b/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)