ensure-same-underlying ( slice1 slice2 -- slice1 slice2 )

Vocabulary

sequences.extras

Inputs

slice1	a slice
slice2	a slice

Outputs

slice1	a slice
slice2	a slice

Word description

Throw an error if the two slices are slices of different sequences.

Definition

USING: accessors kernel ;

IN: sequences.extras

: ensure-same-underlying ( slice1 slice2 -- slice1 slice2 )
    2dup [ seq>> ] bi@ eq? [ underlying-mismatch ] unless ;