db.types: simplify filter-ignores.

2018-02-14 09:19:21 -08:00 · 2018-02-14 09:19:21 -08:00 · 355bd0be77
parent 08b55b6a62
commit 355bd0be77
1 changed files with 1 additions and 2 deletions
--- 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 ;