merge-slices ( slice1 slice2 -- slice/* )

Vocabulary

sequences.extras

Inputs

slice1	a slice
slice2	a slice

Outputs

slice/*

an object

Definition

USING: accessors kernel sequences ;

IN: sequences.extras

: merge-slices ( slice1 slice2 -- slice/* )
    slice-order-by-from 2dup ordered-slices-touch?
    [ [ from>> ] [ [ to>> ] [ seq>> ] bi ] bi* <slice> ]
    [ slices-don't-touch ] if ;