stack-checker: more use of hash-sets.

db4
John Benediktsson 2013-03-16 13:41:51 -07:00
parent ee1eb8bf09
commit 2bbec0dd61
2 changed files with 3 additions and 3 deletions

View File

@ -109,4 +109,4 @@ generic-call-site-crossref [ H{ } clone ] initialize
tri ;
: set-dependency-checks ( word deps -- )
keys f like "dependency-checks" set-word-prop ;
members f like "dependency-checks" set-word-prop ;

View File

@ -69,7 +69,7 @@ GENERIC: satisfied? ( dependency -- ? )
: add-conditional-dependency ( ... class -- )
boa conditional-dependencies get
dup [ conjoin ] [ 2drop ] if ; inline
dup [ adjoin ] [ 2drop ] if ; inline
TUPLE: depends-on-class-predicate class1 class2 result ;
@ -147,7 +147,7 @@ M: depends-on-final satisfied?
: init-dependencies ( -- )
H{ } clone dependencies set
H{ } clone generic-dependencies set
H{ } clone conditional-dependencies set ;
HS{ } clone conditional-dependencies set ;
: without-dependencies ( quot -- )
[