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