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

[factor.git] / core / vocabs / parser / parser.factor

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 53b1447d24ec0617c8ee31010a5cd2cb8a9b66dc..938fda112203dcdeaa671fa0870c1c86754d6ed5 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -248,7 +248,7 @@ PRIVATE>
 GENERIC: update ( search-path-elt -- valid? )
 
 : trim-forgotten ( qualified-vocab -- valid? )
-    [ [ nip "forgotten" word-prop ] assoc-reject ] change-words
+    [ [ "forgotten" word-prop ] reject-values ] change-words
     words>> assoc-empty? not ;
 
 M: from update trim-forgotten ;