only raise an exception when there is an exception to raise

svn: r15953
2009-09-10 06:40:25 +00:00 · 2009-09-10 06:40:25 +00:00 · d3a3e0cc8c
commit d3a3e0cc8c
parent ed18890817
1 changed files with 1 additions and 1 deletions
--- 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])))