compiler.crossref: cleanup

release
Slava Pestov 2010-01-30 10:58:00 +13:00
parent 52e25f190c
commit 6eceff6acb
2 changed files with 2 additions and 2 deletions

View File

@ -86,7 +86,7 @@ M: word combinator? inline? ;
[ [
dup crossref? [ dup crossref? [
[ dependencies get generic-dependencies get compiled-xref ] [ dependencies get generic-dependencies get compiled-xref ]
[ conditional-dependencies get save-conditional-dependencies ] [ conditional-dependencies get set-dependency-checks ]
bi bi
] [ drop ] if ] [ drop ] if
] tri ; ] tri ;

View File

@ -107,5 +107,5 @@ compiled-generic-crossref [ H{ } clone ] initialize
[ compiled-generic-crossref get delete-at ] [ compiled-generic-crossref get delete-at ]
tri ; tri ;
: save-conditional-dependencies ( word deps -- ) : set-dependency-checks ( word deps -- )
keys f like "dependency-checks" set-word-prop ; keys f like "dependency-checks" set-word-prop ;