From 57f434b80e48b297a371df88122945bdea0cefd7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 30 Mar 2016 16:38:38 -0700
Subject: [PATCH] tools.test: rethrow any restart failures from tests.

---
 basis/tools/test/test.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 52b396b3be..21fe7de3a6 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -125,7 +125,9 @@ PRIVATE>
 : run-test-file ( path -- )
     dup current-test-file [
         test-failures get current-test-file get +test-failure+ delete-file-errors
-        '[ _ run-file ] [ file-failure ] recover
+        '[ _ run-file ] [
+            dup condition? [ rethrow ] [ file-failure ] if
+        ] recover
     ] with-variable ;
 
 SYMBOL: forget-tests?