compiler.*: places where filter-word-defs can be used

char-rename
Björn Lindqvist 2016-12-05 17:08:23 +01:00
parent 7abe91732f
commit 1f3394af26
2 changed files with 5 additions and 5 deletions

View File

@ -166,7 +166,7 @@ M: optimizing-compiler to-recompile ( -- words )
maybe-changed get new-words get diff
outdated-conditional-usages %
changed-definitions get members [ word? ] filter dup zip ,
changed-definitions get filter-word-defs dup zip ,
] { } make assoc-combine keys ;
M: optimizing-compiler process-forgotten-words

View File

@ -1,7 +1,7 @@
! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs combinators fry grouping kernel namespaces
sequences sets stack-checker.dependencies words ;
USING: assocs combinators compiler.units fry grouping kernel
namespaces sequences sets stack-checker.dependencies words ;
IN: compiler.crossref
SYMBOL: compiled-crossref
@ -19,10 +19,10 @@ generic-call-site-crossref [ H{ } clone ] initialize
[ all-dependencies-of ] dip '[ nip _ dependency>= ] assoc-filter ;
: outdated-definition-usages ( set -- assocs )
members [ word? ] filter [ +definition+ dependencies-of ] map ;
filter-word-defs [ +definition+ dependencies-of ] map ;
: outdated-effect-usages ( set -- assocs )
members [ word? ] filter [ all-dependencies-of ] map ;
filter-word-defs [ all-dependencies-of ] map ;
: dependencies-satisfied? ( word cache -- ? )
[ "dependency-checks" word-prop ] dip