satisfied? ( dependency -- ? )

Vocabulary

stack-checker.dependencies

Inputs

dependency

an object

Outputs

?

an object

Definition

IN: stack-checker.dependencies

GENERIC: satisfied? ( dependency -- ? )

Methods

USING: accessors classes classes.algebra
combinators.short-circuit kernel stack-checker.dependencies ;

M: depends-on-class-predicate satisfied?
    {
        [ class1>> classoid? ]
        [ class2>> classoid? ]
        [
            [
                [ class1>> ] [ class2>> ] bi
                evaluate-class-predicate
            ] [ result>> ] bi eq?
        ]
    } 1&& ;


USING: accessors classes classes.tuple combinators.short-circuit
stack-checker.dependencies ;

M: depends-on-final satisfied?
    class>> { [ class? ] [ final-class? ] } 1&& ;


USING: accessors stack-checker.dependencies words ;

M: depends-on-flushable satisfied? word>> flushable? ;


USING: accessors classes combinators.short-circuit kernel
stack-checker.dependencies ;

M: depends-on-instance-predicate satisfied?
    {
        [ class>> classoid? ]
        [
            [ [ object>> ] [ class>> ] bi instance? ]
            [ result>> ] bi eq?
        ]
    } 1&& ;


USING: accessors classes combinators.short-circuit generic
kernel stack-checker.dependencies ;

M: depends-on-method satisfied?
    {
        [ class>> classoid? ]
        [
            [ [ class>> ] [ generic>> ] bi method-for-class ]
            [ method>> ] bi eq?
        ]
    } 1&& ;


USING: accessors classes combinators.short-circuit generic
kernel stack-checker.dependencies ;

M: depends-on-next-method satisfied?
    {
        [ class>> classoid? ]
        [
            [ [ class>> ] [ generic>> ] bi next-method ]
            [ next-method>> ] bi eq?
        ]
    } 1&& ;


USING: accessors kernel stack-checker.dependencies words ;

M: depends-on-struct-slots satisfied?
    [ class>> "c-type" word-prop fields>> ] [ slots>> ] bi eq? ;


USING: accessors classes.tuple.private kernel
stack-checker.dependencies ;

M: depends-on-tuple-layout satisfied?
    [ class>> tuple-layout ] [ layout>> ] bi eq? ;