From dbb1d8f360a83d91801a68d1a0f759ebd449d81a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 16 Feb 2013 19:43:46 -0600 Subject: [PATCH] adjust scribble lexer so its failures print to stderr, not stdout --- collects/tests/syntax-color/scribble-lexer.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/tests/syntax-color/scribble-lexer.rkt b/collects/tests/syntax-color/scribble-lexer.rkt index 98c3758733..f94aa561d4 100644 --- a/collects/tests/syntax-color/scribble-lexer.rkt +++ b/collects/tests/syntax-color/scribble-lexer.rkt @@ -23,12 +23,12 @@ (caddar l))) (loop (+ (+ pos (caar l))) (cdr l)))))]) (unless (equal? v val) - (printf "FAILED, line ~s\n" line) - (printf " result\n") - (pretty-print v) - (printf " is not expected\n") - (pretty-print val) - (printf "\n")))) + (eprintf "FAILED, line ~s\n" line) + (eprintf " result\n") + (pretty-print v (current-error-port)) + (eprintf " is not expected\n") + (pretty-print val (current-error-port)) + (eprintf "\n")))) (define-syntax-rule (test str len-val) (test* str len-val (syntax-line #'str)))