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

[factor.git] / basis / math / floats / env / env.factor

diff --git a/basis/math/floats/env/env.factor b/basis/math/floats/env/env.factor
index fed84682baa23d47d317ce4f678d7ab89388ce2a..cb9b64a792d4616d33f4bbb94902ad2775768ffd 100644 (file)
--- a/basis/math/floats/env/env.factor
+++ b/basis/math/floats/env/env.factor
@@ -53,8 +53,8 @@ HOOK: (fp-env-registers) cpu ( -- registers )
 
 : fp-env-register ( -- register ) (fp-env-registers) first ;
 
-:: mask> ( bits assoc -- symbols )
-    assoc [| k v | bits v mask zero? ] assoc-reject keys ;
+: mask> ( bits assoc -- symbols )
+    [ mask zero? ] with reject-values keys ;
 : >mask ( symbols assoc -- bits )
     over empty?
     [ 2drop 0 ]