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

compiler.crosssref: rename word property

release
Slava Pestov 2010-01-30 03:12:29 +13:00
parent 6cc68e889e
commit a13c2fb856
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@ compiled-generic-crossref [ H{ } clone ] initialize
[ [ drop (compiled-usages) ] { } assoc>map ] keep suffix ; [ [ drop (compiled-usages) ] { } assoc>map ] keep suffix ;
: dependencies-satisfied? ( word -- ? ) : dependencies-satisfied? ( word -- ? )
"conditional-dependencies" word-prop [ satisfied? ] all? ; "dependency-checks" word-prop [ satisfied? ] all? ;
: outdated-conditional-usages ( assoc -- assocs ) : outdated-conditional-usages ( assoc -- assocs )
[ [
@ -54,7 +54,7 @@ compiled-generic-crossref [ H{ } clone ] initialize
: compiled-unxref ( word -- ) : compiled-unxref ( word -- )
[ "compiled-uses" compiled-crossref (compiled-unxref) ] [ "compiled-uses" compiled-crossref (compiled-unxref) ]
[ "compiled-generic-uses" compiled-generic-crossref (compiled-unxref) ] [ "compiled-generic-uses" compiled-generic-crossref (compiled-unxref) ]
[ f "conditional-dependencies" set-word-prop ] [ f "dependency-checks" set-word-prop ]
tri ; tri ;
: delete-compiled-xref ( word -- ) : delete-compiled-xref ( word -- )
@ -64,4 +64,4 @@ compiled-generic-crossref [ H{ } clone ] initialize
tri ; tri ;
: save-conditional-dependencies ( word deps -- ) : save-conditional-dependencies ( word deps -- )
>array f like "conditional-dependencies" set-word-prop ; >array f like "dependency-checks" set-word-prop ;