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

[factor.git] / extra / smalltalk / compiler / compiler.factor

diff --git a/extra/smalltalk/compiler/compiler.factor b/extra/smalltalk/compiler/compiler.factor
index 8327b0ac39171d27b5cb507cc25aeee0e788a879..406c63820d6e43a79afee5f946bff8b5de31acfe 100644 (file)
--- a/extra/smalltalk/compiler/compiler.factor
+++ b/extra/smalltalk/compiler/compiler.factor
@@ -71,7 +71,7 @@ M: ast-return compile-ast
         dup dup _ in? [ <local-reader> ] [ <local> ] if
     ] H{ } map>assoc
     dup
-    [ nip local-reader? ] assoc-filter
+    [ local-reader? ] filter-values
     [ <local-writer> ] assoc-map
     <lexenv> swap >>local-writers swap >>local-readers ;