stack-checker.dependencies: use short-circuit better.
parent
cb622f4d85
commit
d103b38d3f
|
@ -78,7 +78,8 @@ TUPLE: depends-on-class-predicate class1 class2 result ;
|
||||||
|
|
||||||
M: depends-on-class-predicate satisfied?
|
M: depends-on-class-predicate satisfied?
|
||||||
{
|
{
|
||||||
[ [ class1>> valid-classoid? ] [ class2>> valid-classoid? ] bi and ]
|
[ class1>> valid-classoid? ]
|
||||||
|
[ class2>> valid-classoid? ]
|
||||||
[ [ [ class1>> ] [ class2>> ] bi evaluate-class-predicate ] [ result>> ] bi eq? ]
|
[ [ [ class1>> ] [ class2>> ] bi evaluate-class-predicate ] [ result>> ] bi eq? ]
|
||||||
} 1&& ;
|
} 1&& ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue