vocabs.cache: use fry, its cleaner.

diff --git a/basis/vocabs/cache/cache.factor b/basis/vocabs/cache/cache.factor
index e77e8c5217cd377c582587a9262d6b34f726f8b4..cca8d563d897a0f5168375ab156f3c10695b980a 100644 (file)
--- a/basis/vocabs/cache/cache.factor
+++ b/basis/vocabs/cache/cache.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs kernel namespaces memoize init sequences vocabs
-vocabs.hierarchy vocabs.loader vocabs.metadata vocabs.refresh
-words ;
+USING: assocs fry init kernel memoize namespaces sequences
+vocabs vocabs.hierarchy vocabs.loader vocabs.metadata
+vocabs.refresh words ;
 IN: vocabs.cache
 
 : reset-cache ( vocab -- )
@@ -10,7 +10,7 @@ IN: vocabs.cache
     [ root-cache get-global delete-at ]
     [
         \ vocab-file-contents "memoize" word-prop
-        [ drop [ first vocab-name ] [ = not ] bi* ] with assoc-filter! drop
+        '[ drop first vocab-name _ = not ] assoc-filter! drop
     ] bi
     \ all-vocabs-recursive reset-memoized
     \ all-authors reset-memoized