unsurround ( newseq seq2 seq3 -- seq1 )

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* ;