From 2e8361fee873749d01c85d2ceb9d230731897774 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 13 Aug 2012 12:30:17 -0700 Subject: [PATCH] vocabs.cache: use fry, its cleaner. --- basis/vocabs/cache/cache.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/vocabs/cache/cache.factor b/basis/vocabs/cache/cache.factor index e77e8c5217..cca8d563d8 100644 --- 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