tools.test: better restart checking.

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 21fe7de3a6ded881d2b5e1c3186fb6a78d727763..5722a64ce0296efb3dbf16e9e297a4f097f7db04 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -126,7 +126,11 @@ PRIVATE>
     dup current-test-file [
         test-failures get current-test-file get +test-failure+ delete-file-errors
         '[ _ run-file ] [
-            dup condition? [ rethrow ] [ file-failure ] if
+            dup compute-restarts empty? [
+                file-failure
+            ] [
+                rethrow
+            ] if
         ] recover
     ] with-variable ;