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

[factor.git] / basis / math / vectors / simd / simd-tests.factor

diff --git a/basis/math/vectors/simd/simd-tests.factor b/basis/math/vectors/simd/simd-tests.factor
index bbd972ea71c4bb45ad0b6c4962c40cc7cd3727be..9a1c7fb74df116654d21caa5a0b66863dad2ac6e 100644 (file)
--- a/basis/math/vectors/simd/simd-tests.factor
+++ b/basis/math/vectors/simd/simd-tests.factor
@@ -239,17 +239,17 @@ TUPLE: simd-test-failure
 
 : remove-float-words ( alist -- alist' )
     { distance vsqrt n/v v/n v/ normalize }
-    '[ drop _ member? ] assoc-reject ;
+    '[ _ member? ] reject-keys ;
 
 : remove-integer-words ( alist -- alist' )
     { vlshift vrshift v*high v*hs+ }
-    '[ drop _ member? ] assoc-reject ;
+    '[ _ member? ] reject-keys ;
 
 : boolean-ops ( -- words )
     { vand vandn vor vxor vnot vcount } ;
 
 : remove-boolean-words ( alist -- alist' )
-    boolean-ops '[ drop _ member? ] assoc-reject ;
+    boolean-ops '[ _ member? ] reject-keys ;
 
 : ops-to-check ( elt-class -- alist )
     [ vector-words >alist ] dip