slice-order-by-from ( slice1 slice2 -- slice-lt slice-gt )

Vocabulary

sequences.extras

Inputs

slice1	a slice
slice2	a slice

Outputs

slice-lt	an object
slice-gt	an object

Definition

USING: accessors kernel math ;

IN: sequences.extras

: slice-order-by-from ( slice1 slice2 -- slice-lt slice-gt )
    2dup [ from>> ] bi@ > [ swap ] when ; inline