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

[factor.git] / extra / multi-methods / multi-methods.factor

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index bd886ae27b9775724deca4408772f5db21e780ea..04694a46ef19118ade7af9e8c100a5db2dd9c5af 100644 (file)
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -114,7 +114,7 @@ SYMBOL: total
 : multi-predicate ( classes -- quot )
     dup length <iota> <reversed>
     [ picker 2array ] 2map
-    [ drop object eq? ] assoc-reject
+    [ object eq? ] reject-keys
     [ [ t ] ] [
         [ (multi-predicate) ] { } assoc>map
         unclip [ swap [ f ] \ if 3array [ ] append-as ] reduce