suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust scribble lexer so its failures print to stderr, not stdout

Browse Source
This commit is contained in:
Robby Findler 2013-02-16 19:43:46 -06:00
parent 5c109946c2
commit dbb1d8f360
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/syntax-color/scribble-lexer.rkt
View File

@ -23,12 +23,12 @@
(caddar l))) (caddar l)))
(loop (+ (+ pos (caar l))) (cdr l)))))]) (loop (+ (+ pos (caar l))) (cdr l)))))])
(unless (equal? v val) (unless (equal? v val)
(printf "FAILED, line ~s\n" line) (eprintf "FAILED, line ~s\n" line)
(printf " result\n") (eprintf " result\n")
(pretty-print v) (pretty-print v (current-error-port))
(printf " is not expected\n") (eprintf " is not expected\n")
(pretty-print val) (pretty-print val (current-error-port))
(printf "\n")))) (eprintf "\n"))))
(define-syntax-rule (test str len-val) (define-syntax-rule (test str len-val)
(test* str len-val (syntax-line #'str))) (test* str len-val (syntax-line #'str)))