matches-slot? ( actual requested -- ? )


Vocabulary
foogle.private

Inputs
actualan object
requestedan object


Outputs
?an object


Definition
USING: classes classes.algebra effects kernel ;

IN: foogle.private

:: matches-slot? ( actual requested -- ? )
requested object eq?
[ t ] [
requested effect? [
actual effect?
[ actual requested matches-effect? ] [ f ] if
] [
actual classoid?
[ actual requested class<= ] [ f ] if
] if
] if ;