intersect ( finger1 finger2 -- bb )

Vocabulary

compiler.cfg.dominance.private

Inputs

finger1	an object
finger2	an object

Outputs

bb

an object

Definition

USING: accessors combinators compiler.cfg.dominance kernel
math.order ;

IN: compiler.cfg.dominance.private

: intersect ( finger1 finger2 -- bb )
    2dup [ number>> ] compare {
        { +gt+ [ [ dom-parent ] dip intersect ] }
        { +lt+ [ dom-parent intersect ] }
        [ 2drop ]
    } case ;