use ?delete-file instead of [ delete-file ] ignore-errors.

[factor.git] / basis / concurrency / distributed / distributed-tests.factor

diff --git a/basis/concurrency/distributed/distributed-tests.factor b/basis/concurrency/distributed/distributed-tests.factor
index 7bb1469fa336544e6aa6fdd7a2d32c63c673604d..83d596cca3f99ffe7b607daaa3dfbe86938b8cf3 100644 (file)
--- a/basis/concurrency/distributed/distributed-tests.factor
+++ b/basis/concurrency/distributed/distributed-tests.factor
@@ -19,8 +19,9 @@ CONSTANT: test-ip "127.0.0.1"
         { [ os windows? ] [ insecure-addr ] }
     } cond ;
 
-
-{ } [ [ "distributed-concurrency-test" temp-file delete-file ] ignore-errors ] unit-test
+os unix? [
+    "distributed-concurrency-test" temp-file ?delete-file
+] when
 
 test-node-server [
     [ ] [