decide? ( ... merge quot: ( ... elt1 elt2 -- ... <=> ) -- ... ? )

Vocabulary

sorting.private

Inputs

merge	an object
quot	a quotation with stack effect ( ... elt1 elt2 -- ... <=> )

Outputs

?

an object

Definition

USING: kernel math.order ;

IN: sorting.private

: decide?
    ( ... merge quot: ( ... elt1 elt2 -- ... <=> ) -- ... ? )
    [ [ l-elt ] [ r-elt ] bi ] dip call +gt+ eq? ; inline