unsurround ( newseq seq2 seq3 -- seq1 )

Vocabulary

sequences.extras

Inputs

newseq	a sequence
seq2	a sequence
seq3	a sequence

Outputs

seq1	a sequence

Word description

Reverses the result of a surround call, stripping off the prefix seq2 and suffix seq3 to restore the original sequence seq.

See also

surround

Definition

USING: kernel splitting ;

IN: sequences.extras

: unsurround ( newseq seq2 seq3 -- seq1 )
    [ ?head drop ] [ ?tail drop ] bi* ;