tools.test: better restart checking.

2016-03-30 21:55:07 -07:00 · 2016-03-30 21:55:07 -07:00 · 92496b5393
parent f5cea754b5
commit 92496b5393
1 changed files with 5 additions and 1 deletions
--- 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 ;