continuations: new words for ignoring masked errors

[factor.git] / basis / db / errors / errors.factor

diff --git a/basis/db/errors/errors.factor b/basis/db/errors/errors.factor
index e35eab1c21b56f3dd7afe6e9c613c930083947a1..dbb537cedcd5ada2b35275d1ff4add9f4aaccce1 100644 (file)
--- a/basis/db/errors/errors.factor
+++ b/basis/db/errors/errors.factor
@@ -48,9 +48,6 @@ TUPLE: sql-index-exists < sql-error name ;
 : <sql-index-exists> ( name -- error )
     f swap sql-index-exists boa ;
 
-: ignore-error ( quot check: ( error -- ? ) -- )
-    '[ dup @ [ drop ] [ rethrow ] if ] recover ; inline
-
 : ignore-table-exists ( quot -- )
     [ sql-table-exists? ] ignore-error ; inline