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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/compiler.factor
View File

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

8
basis/compiler/crossref/crossref.factor
View File

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