From ece6c578d95072098c52faf36b5a18956662561e Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Tue, 15 Jun 2010 13:53:40 -0400 Subject: [PATCH] Fixing infinite loop in loading benchmark.fib4 --- basis/stack-checker/dependencies/dependencies.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/stack-checker/dependencies/dependencies.factor b/basis/stack-checker/dependencies/dependencies.factor index ba6043a13a..f35fb4afd7 100644 --- a/basis/stack-checker/dependencies/dependencies.factor +++ b/basis/stack-checker/dependencies/dependencies.factor @@ -153,14 +153,15 @@ TUPLE: depends-on-single-method method-class object-class generic ; SYMBOL: +no-method+ -:: subclass-with-only-method ( class generic -- subclass/f/+no-method+ ) ! make it return +no-method+ sometimes +:: subclass-with-only-method ( class generic -- subclass/f/+no-method+ ) f generic method-classes [| last-class new-class | class new-class classes-intersect? [ last-class [ f f ] [ new-class t ] if ] [ last-class t ] if ] all? - [ +no-method+ or ] [ drop f ] if ; + [ +no-method+ or class null class<= not swap and ] + [ drop f ] if ; M: depends-on-single-method satisfied? [ method-class>> ] [ object-class>> ] [ generic>> ] tri