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

[factor.git] / basis / compiler / tree / dead-code / simple / simple.factor

diff --git a/basis/compiler/tree/dead-code/simple/simple.factor b/basis/compiler/tree/dead-code/simple/simple.factor
index 9980999917b66c211f8a331eb2e14e77ebff1cc6..5ca59d27b4c05db13d6cbf3ee1375b2d6b53d5f0 100644 (file)
--- a/basis/compiler/tree/dead-code/simple/simple.factor
+++ b/basis/compiler/tree/dead-code/simple/simple.factor
@@ -38,7 +38,7 @@ M: #shuffle compute-live-values*
 M: #alien-node compute-live-values* nip look-at-inputs ;
 
 : filter-mapping ( assoc -- assoc' )
-    live-values get '[ drop _ key? ] assoc-filter ;
+    live-values get '[ _ key? ] filter-keys ;
 
 : filter-corresponding ( new old -- old' )
     zip filter-mapping values ;