warning to stderr, not stdout
See PR 11691
Merge to release branch
(cherry picked from commit fd3595e7d3
)
This commit is contained in:
parent
8c312b3181
commit
6b121cdce6
|
@ -113,7 +113,7 @@
|
||||||
(let ((next-check (vector-ref next 1)))
|
(let ((next-check (vector-ref next 1)))
|
||||||
(or (>= next-check max-char-num)
|
(or (>= next-check max-char-num)
|
||||||
(loop (add1 next-check) (cdr nexts))))))))))
|
(loop (add1 next-check) (cdr nexts))))))))))
|
||||||
(printf "Warning: lexer at ~a can accept the empty string.\n" stx)))
|
(eprintf "Warning: lexer at ~a can accept the empty string.\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…
Reference in New Issue
Block a user