steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "vocabs.cache: use fry, its cleaner." 

This reverts commit 1a8d9f227d.
db4
John Benediktsson 2012-08-13 12:36:06 -07:00
parent 54cfca1f1e
commit 750d9e0faf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/vocabs/cache/cache.factor vendored
View File

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