From f00c1150fecd9aa9ed4f659f947d3147f0c1492f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 25 May 2012 18:36:22 -0600 Subject: [PATCH] adjust `raco setup' replay of exception messages to handle multiple lines --- collects/setup/setup-unit.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index f6c0d902b4..0d0c9effcb 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -128,7 +128,8 @@ (for ([e (reverse errors)]) (match-let ([(list cc desc x out err type) e]) (setup-fprintf port type "during ~a for ~a" desc (if (cc? cc) (cc-name cc) cc)) - (unless (null? x) (setup-fprintf port #f " ~a" (exn->string x))) + (unless (null? x) (for ([str (in-list (regexp-split #rx"\n" (exn->string x)))]) + (setup-fprintf port #f " ~a" str))) (unless (zero? (string-length out)) (eprintf "STDOUT:\n~a=====\n" out)) (unless (zero? (string-length err)) (eprintf "STDERR:\n~a=====\n" err)))))