From d3a3e0cc8c728cd148049ff4a166a22e79558d36 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 10 Sep 2009 06:40:25 +0000 Subject: [PATCH] only raise an exception when there is an exception to raise svn: r15953 --- collects/test-engine/scheme-tests.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.ss index 1d12e74842..a8367c670b 100644 --- a/collects/test-engine/scheme-tests.ss +++ b/collects/test-engine/scheme-tests.ss @@ -220,7 +220,7 @@ (list (maker src (test-format) test-val expect range) test-val #f)])))]) (cond [(check-fail? result) (send (send test-info get-info) check-failed result (check-fail-src result) exn) - (raise exn)] + (when exn (raise exn))] [else #t])))