matches-effect? ( actual requested -- ? )

Vocabulary

foogle.private

Inputs

actual	an object
requested	an object

Outputs

?

an object

Definition

USING: accessors effects kernel ;

IN: foogle.private

:: matches-effect? ( actual requested -- ? )
    actual requested effect= actual requested [ row-shape ] bi@
    = and [
        actual requested [ in>> ] bi@ matches-slots?
        actual requested [ out>> ] bi@ matches-slots? and
    ] [ f ] if ;