From 17bd952e4a5aad9815b27ed5e343bc3b782d4a37 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 13 Aug 2012 12:44:33 -0700 Subject: [PATCH] vocabs.cache: bringing back the fry change. --- basis/vocabs/cache/cache.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/vocabs/cache/cache.factor b/basis/vocabs/cache/cache.factor index e77e8c5217..97ea4b8cc8 100644 --- a/basis/vocabs/cache/cache.factor +++ b/basis/vocabs/cache/cache.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: assocs kernel namespaces memoize init sequences vocabs +USING: assocs fry kernel namespaces memoize init sequences vocabs vocabs.hierarchy vocabs.loader vocabs.metadata vocabs.refresh words ; IN: vocabs.cache @@ -9,8 +9,8 @@ IN: vocabs.cache vocab-name [ root-cache get-global delete-at ] [ - \ vocab-file-contents "memoize" word-prop - [ drop [ first vocab-name ] [ = not ] bi* ] with assoc-filter! drop + \ vocab-file-contents "memoize" word-prop swap + '[ drop first vocab-name _ = not ] assoc-filter! drop ] bi \ all-vocabs-recursive reset-memoized \ all-authors reset-memoized