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

[factor.git] / basis / compiler / cfg / representations / selection / selection.factor

diff --git a/basis/compiler/cfg/representations/selection/selection.factor b/basis/compiler/cfg/representations/selection/selection.factor
index e562f3264e7a655eadc8b3b31729443faebb2940..203fe62ed1d8acb9b445878f9887f7f948da6943 100644 (file)
--- a/basis/compiler/cfg/representations/selection/selection.factor
+++ b/basis/compiler/cfg/representations/selection/selection.factor
@@ -127,7 +127,7 @@ M: vreg-insn compute-insn-costs
     ] each-basic-block ;
 
 : minimize-costs ( costs -- representations )
-    [ nip assoc-empty? ] assoc-reject
+    [ assoc-empty? ] reject-values
     [ >alist alist-min first ] assoc-map ;
 
 : compute-representations ( cfg -- )