expect-and-span ( n string slice expected-string -- n' string slice' )

Vocabulary

modern.slices

Inputs

n	an object
string	an object
slice	an object
expected-string	an object

Outputs

n'	an object
string	an object
slice'	an object

Definition

USING: combinators.extras kernel sequences sequences.extras ;

IN: modern.slices

: expect-and-span
    ( n string slice expected-string -- n' string slice' )
    dup length [ take-slice ] curry 2dip-1up check-sequence
    span-slices ;