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' ) - [ [ nip IGNORE = ] assoc-filter keys ] dip - [ slot-name>> swap member? ] with reject ; + [ ] dip [ slot-name>> of IGNORE = ] with reject ; ERROR: not-persistent class ;