From 6b121cdce64aa596eec408bb1c4741d1f9e65fea Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 1 Feb 2011 16:32:34 -0700 Subject: [PATCH] warning to stderr, not stdout See PR 11691 Merge to release branch (cherry picked from commit fd3595e7d30b7fcabba84185f8d5c4e6d63aa239) --- collects/parser-tools/lex.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/parser-tools/lex.rkt b/collects/parser-tools/lex.rkt index 279287553d..e9983ab962 100644 --- a/collects/parser-tools/lex.rkt +++ b/collects/parser-tools/lex.rkt @@ -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)