From 355bd0be770e20c941590889c4e6ce2bee070a08 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 14 Feb 2018 09:19:21 -0800
Subject: [PATCH] db.types: simplify filter-ignores.

---
 basis/db/types/types.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/db/types/types.factor b/basis/db/types/types.factor
index 5fb86e5ea9..5932f4531e 100644
--- 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 ;