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