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

[factor.git] / basis / cocoa / messages / messages.factor

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 5bb5277a0d451a3020a3db49d5b5769331904509..7107530d593992eb008a0ac02b0f5ad754a8b199 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -254,7 +254,7 @@ ERROR: no-objc-type name ;
     objc-methods get >alist
     [ first CHAR: . swap member? ] filter
     [ first "." split1 nip ] collect-by
-    [ nip values members length 1 > ] assoc-filter ;
+    [ values members length 1 > ] filter-values ;
 
 : method-count ( class -- c-direct-array )
     0 uint <ref> [ class_copyMethodList (free) ] keep uint deref ;