*** empty log message ***

original commit: 275c51b82d09294bdb30bf026274e0ac8ab67eba
tokens
Scott Owens 20 years ago
parent a027d5cf66
commit e071fd3412

@ -97,7 +97,7 @@
(let-values (((trans start action-names no-look disappeared-uses) (let-values (((trans start action-names no-look disappeared-uses)
(build-lexer re-actname-lst))) (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)) (printf "Warning: lexer might accept the empty string ~a.~n" stx))
(with-syntax ((start-state-stx start) (with-syntax ((start-state-stx start)
(trans-table-stx trans) (trans-table-stx trans)
(no-lookahead-stx no-look) (no-lookahead-stx no-look)

Loading…
Cancel
Save