warning to stderr, not stdout

See PR 11691
  Merge to release branch
This commit is contained in:
Ryan Culpepper 2011-02-01 16:32:34 -07:00
parent 3c081d8fa7
commit fd3595e7d3

View File

@ -113,7 +113,7 @@
(let ((next-check (vector-ref next 1)))
(or (>= next-check max-char-num)
(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)
(trans-table-stx trans)
(no-lookahead-stx no-look)