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

[factor.git] / extra / lint / vocabs / vocabs.factor

diff --git a/extra/lint/vocabs/vocabs.factor b/extra/lint/vocabs/vocabs.factor
index 962ced0010b1d2ce18950859602fffb42a4dd62b..ab1d4dffb73635398df8bfe4f69116694c971c1f 100644 (file)
--- a/extra/lint/vocabs/vocabs.factor
+++ b/extra/lint/vocabs/vocabs.factor
@@ -198,11 +198,8 @@ DEFER: next-token
 : no-vocab-found ( name -- empty )
     { } 2array ;
 
-: [is-used?] ( hash-set  -- quot )
-    '[ nip [ _ in? ] any? ] ; inline
-
 : reject-unused-vocabs ( assoc hash-set -- seq )
-    [is-used?] assoc-reject keys ;
+    '[ [ _ in? ] any? ] reject-values keys ;
 
 :: print-new-header ( seq -- )
     "Use the following header to remove unused imports: " print