stack-checker.dependencies: use short-circuit better.

2013-04-06 16:44:50 -07:00 · 2013-04-06 16:44:50 -07:00 · d103b38d3f
parent cb622f4d85
commit d103b38d3f
1 changed files with 2 additions and 1 deletions
--- a/basis/stack-checker/dependencies/dependencies.factor
+++ b/basis/stack-checker/dependencies/dependencies.factor
@ -78,7 +78,8 @@ TUPLE: depends-on-class-predicate class1 class2 result ;

 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? ]
    } 1&& ;