same-runtime-effect? ( knowns -- ? )

Vocabulary

stack-checker.branches.private

Inputs

knowns

an object

Outputs

?

an object

Definition

USING: accessors effects kernel sequences stack-checker.values ;

IN: stack-checker.branches.private

:: same-runtime-effect? ( knowns -- ? )
    knowns [ runtime-effect? ] all? [
        knowns first effect>> :> effect knowns
        [ effect>> effect effect= ] all?
    ] [ f ] if ;