stack-checker: more use of hash-sets.
parent
ee1eb8bf09
commit
2bbec0dd61
|
@ -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 ;
|
||||
|
|
|
@ -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 -- )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue