(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 ] [
            [ decide? ] 2keep rot
            [ over r-next ] [ over l-next ] if (merge)
        ] if
    ] if ; inline recursive