assocs.extras: Move some often-used words to core

[factor.git] / basis / hints / hints.factor

diff --git a/basis/hints/hints.factor b/basis/hints/hints.factor
index fa6bd6d50d634cef45839daa46119c67f6b98ed5..d00888a3592cd1d08600cc329750044f7f42b126 100644 (file)
--- a/basis/hints/hints.factor
+++ b/basis/hints/hints.factor
@@ -25,7 +25,7 @@ M: object specializer-declaration class-of ;
 : make-specializer ( specs -- quot )
     dup length <iota> <reversed>
     [ (picker) 2array ] 2map
-    [ drop object eq? ] assoc-reject
+    [ object eq? ] reject-keys
     [ [ t ] ] [
         [ swap specializer-predicate append ] { } assoc>map
         [ ] [ swap [ f ] \ if 3array [ ] append-as ] map-reduce