(merge) ( merge quot: ( elt1 elt2 -- <=> ) -- )

Vocabulary

sorting.private

Inputs

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

Outputs

None

Definition

USING: kernel ;

IN: sorting.private

: (merge) ( merge quot: ( elt1 elt2 -- <=> ) -- )
    over r-done?
    [ drop dump-l ] [
        over l-done?
        [ drop dump-r ] [
            2dup decide? [ over r-next ] [ over l-next ] if
            (merge)
        ] if
    ] if ; inline recursive