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

[factor.git] / basis / tools / profiler / sampling / sampling.factor

diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor
index c9aac35a54f7cf3de99ab03988cd54fa501728b4..3be910161921d47aff094da5f66dac46eb6c88a4 100644 (file)
--- a/basis/tools/profiler/sampling/sampling.factor
+++ b/basis/tools/profiler/sampling/sampling.factor
@@ -158,7 +158,7 @@ PRIVATE>
     [ total-time>> ] same? ;
 
 : trim-flat ( root-node -- root-node' )
-    dup '[ [ nip _ redundant-flat-node? ] assoc-reject ] change-children ;
+    dup '[ [ _ redundant-flat-node? ] reject-values ] change-children ;
 
 PRIVATE>