method-effect= ( method-effect generic-effect -- ? )

Vocabulary

generic.parser

Inputs

method-effect	an object
generic-effect	an object

Outputs

?

an object

Definition

USING: accessors kernel sequences ;

IN: generic.parser

: method-effect= ( method-effect generic-effect -- ? )
    [ [ in>> length ] same? ] [
        over terminated?>>
        [ 2drop t ] [ [ out>> length ] same? ] if
    ] 2bi and ;