db.types: simplify filter-ignores.

diff --git a/basis/db/types/types.factor b/basis/db/types/types.factor
index 5fb86e5ea96fca005bfeddbf6238b5cfb7f2de5b..5932f4531eac525b7a792d0acc3def3db7bf1f0d 100644 (file)
--- a/basis/db/types/types.factor
+++ b/basis/db/types/types.factor
@@ -32,8 +32,7 @@ SYMBOLS: +autoincrement+ +serial+ +unique+ +default+ +null+ +not-null+
 SYMBOL: IGNORE
 
 : filter-ignores ( tuple specs -- specs' )
-    [ <mirror> [ nip IGNORE = ] assoc-filter keys ] dip
-    [ slot-name>> swap member? ] with reject ;
+    [ <mirror> ] dip [ slot-name>> of IGNORE = ] with reject ;
 
 ERROR: not-persistent class ;