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

[factor.git] / extra / modern / modern.factor

diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor
index f0b5402cf753afa253755843f7a63c8587fb36b4..7d7f9a4e2d0ca37f8b4fa0729b278abfdeff3c9a 100644 (file)
--- a/extra/modern/modern.factor
+++ b/extra/modern/modern.factor
@@ -485,7 +485,7 @@ ERROR: compound-syntax-disallowed n seq obj ;
 : lex-vocabs ( vocabs -- assoc )
     [ [ vocab>literals ] [ nip ] recover ] zip-with ;
 
-: failed-lexing ( assoc -- assoc' ) [ nip array? ] assoc-reject ;
+: failed-lexing ( assoc -- assoc' ) [ array? ] reject-values ;
 
 : rewrite-file ( path encoding quot: ( str -- str' ) -- )
     '[ file-contents @ ] 2keep set-file-contents ; inline