merge-slice-til-whitespace ( n/f string slice -- n'/f string slice' )

Vocabulary

modern.slices

Inputs

n/f	an object
string	an object
slice	an object

Outputs

n'/f	an object
string	an object
slice'	an object

Definition

USING: kernel sequences.extras ;

IN: modern.slices

: merge-slice-til-whitespace
    ( n/f string slice -- n'/f string slice' )
    pick [ [ slice-til-whitespace drop ] dip merge-slices ] when
    ;