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

[factor.git] / extra / gdbm / gdbm-tests.factor

diff --git a/extra/gdbm/gdbm-tests.factor b/extra/gdbm/gdbm-tests.factor
index c9e32f3f883e9596693d790adb8bb2acac21151b..d50e9729142fc5f69d06fe5fd70b763bcc6d4cc5 100644 (file)
--- a/extra/gdbm/gdbm-tests.factor
+++ b/extra/gdbm/gdbm-tests.factor
@@ -6,7 +6,7 @@ IN: gdbm.tests
 
 : db-path ( -- filename ) cpu name>> "-test.db" append temp-file ;
 
-: CLEANUP ( -- ) [ db-path delete-file ] ignore-errors ;
+: CLEANUP ( -- ) db-path ?delete-file ;
 
 : test.db ( -- gdbm ) <gdbm> db-path >>name ;