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

[factor.git] / basis / furnace / sessions / sessions-tests.factor

diff --git a/basis/furnace/sessions/sessions-tests.factor b/basis/furnace/sessions/sessions-tests.factor
index 479a5caa6e159caf135e1dc1053d852ead0862ac..030ebd92542bd5d1a102968c2910712f809a32b2 100644 (file)
--- a/basis/furnace/sessions/sessions-tests.factor
+++ b/basis/furnace/sessions/sessions-tests.factor
@@ -49,7 +49,7 @@ M: foo call-responder*
     <action>
         [ [ ] <text-content> exit-with ] >>display ;
 
-[ "auth-test.db" temp-file delete-file ] ignore-errors
+"auth-test.db" temp-file ?delete-file
 
 "auth-test.db" temp-file <sqlite-db> [