using ignore-errors instead of [ drop ] recover.

diff --git a/basis/compiler/tests/optimizer.factor b/basis/compiler/tests/optimizer.factor
index ecc14d5edc9895ff3d2efa71e087657eab48da12..8565b913464d7b1479df23fbebd4e3305dae0095 100644 (file)
--- a/basis/compiler/tests/optimizer.factor
+++ b/basis/compiler/tests/optimizer.factor
@@ -450,5 +450,5 @@ STRUCT: BitmapData { Scan0 void* } ;
 
 ! #1187
 { } [
-    10 [ [ minor-gc split-slice ] [ drop ] recover ] times
+    10 [ [ minor-gc split-slice ] ignore-errors ] times
 ] unit-test

diff --git a/basis/db/tuples/tuples-tests.factor b/basis/db/tuples/tuples-tests.factor
index 4958ef9f6ae2f644cc73908cfbb7548766d3c244..e3c72d9710a8c5de85ac68dee05f7d746f6d3968 100644 (file)
--- a/basis/db/tuples/tuples-tests.factor
+++ b/basis/db/tuples/tuples-tests.factor
@@ -293,7 +293,7 @@ TUPLE: serialize-me id data ;
         { "id" "ID" +db-assigned-id+ }
         { "data" "DATA" FACTOR-BLOB }
     } define-persistent
-    [ serialize-me drop-table ] [ drop ] recover
+    [ serialize-me drop-table ] ignore-errors
     [ ] [ serialize-me create-table ] unit-test
 
     [ ] [ T{ serialize-me f f H{ { 1 2 } } } insert-tuple ] unit-test
@@ -327,7 +327,7 @@ TUPLE: exam id name score ;
         { "name" "NAME" TEXT }
         { "score" "SCORE" INTEGER }
     } define-persistent
-    [ exam drop-table ] [ drop ] recover
+    [ exam drop-table ] ignore-errors
     [ ] [ exam create-table ] unit-test
 
     [ ] [ T{ exam f f "Kyle" 100 } insert-tuple ] unit-test

diff --git a/basis/io/files/unique/unique-tests.factor b/basis/io/files/unique/unique-tests.factor
index e12600c7a2f10e8c65e50df0fe6ec3508c5e3b89..a45137d703eca890e59f294c01b63f3bec29b707 100644 (file)
--- a/basis/io/files/unique/unique-tests.factor
+++ b/basis/io/files/unique/unique-tests.factor
@@ -16,7 +16,7 @@ IN: io.files.unique.tests
 { t } [
     [
         current-directory get
-        [ [ "FAILDOG" throw ] cleanup-unique-directory ] [ drop ] recover
+        [ [ "FAILDOG" throw ] cleanup-unique-directory ] ignore-errors
         current-directory get =
     ] with-temp-directory
 ] unit-test
@@ -54,4 +54,4 @@ IN: io.files.unique.tests
             [ file-name ] map first2 mismatch
         ] cleanup-unique-files
     ] with-temp-directory
-] unit-test
\ No newline at end of file
+] unit-test

diff --git a/basis/io/sockets/secure/openssl/openssl-tests.factor b/basis/io/sockets/secure/openssl/openssl-tests.factor
index 450a0ae4ca2d64bb389ae53b3f8bcbb943b06a4e..b3ea818c11558ad63fde71926337b34b865c60f5 100644 (file)
--- a/basis/io/sockets/secure/openssl/openssl-tests.factor
+++ b/basis/io/sockets/secure/openssl/openssl-tests.factor
@@ -26,5 +26,5 @@ TUPLE: fake-fd fd ;
 M: fake-fd cancel-operation ( obj -- ) drop ;
 
 { f } [
-    33 fake-fd boa <ssl-handle> [ maybe-handshake ] [ drop ] recover connected>>
+    33 fake-fd boa <ssl-handle> [ maybe-handshake ] ignore-errors connected>>
 ] unit-test

diff --git a/extra/classes/tuple/change-tracking/change-tracking-tests.factor b/extra/classes/tuple/change-tracking/change-tracking-tests.factor
index 5aade593f3a87c58805af9eda944220b4b53e611..ffe55feb6b19918bd5bade68024169efa9166663 100644 (file)
--- a/extra/classes/tuple/change-tracking/change-tracking-tests.factor
+++ b/extra/classes/tuple/change-tracking/change-tracking-tests.factor
@@ -7,4 +7,4 @@ TUPLE: resource < change-tracking-tuple
 : <resource> ( pathname -- resource ) f swap resource boa ;
 
 { t } [ "foo" <resource> "bar" >>pathname changed?>> ] unit-test
-{ f } [ "foo" <resource> [ 123 >>pathname ] [ drop ] recover changed?>> ] unit-test
+{ f } [ "foo" <resource> [ 123 >>pathname ] ignore-errors changed?>> ] unit-test

diff --git a/extra/fuel/eval/eval.factor b/extra/fuel/eval/eval.factor
index b6956d4aca5f9eaec8deb24da0a724dd430f078d..85006e908969951031604527a8063af791eefe04 100644 (file)
--- a/extra/fuel/eval/eval.factor
+++ b/extra/fuel/eval/eval.factor
@@ -63,7 +63,7 @@ t eval-res-flag set-global
     [ [ eval-error set-global ] [ print-error ] bi ] recover ;
 
 : eval-usings ( usings -- )
-    [ [ use-vocab ] curry [ drop ] recover ] each ;
+    [ [ use-vocab ] curry ignore-errors ] each ;
 
 : eval-in ( in -- )
     [ set-current-vocab ] when* ;