with-rest ( seq quot: ( seq -- seq ) -- seq )

Vocabulary

unicode.case.private

Inputs

seq	an object
quot	a quotation with stack effect ( seq -- seq )

Outputs

seq

an object

Definition

USING: kernel sequences ;

IN: unicode.case.private

:: with-rest ( seq quot: ( seq -- seq ) -- seq )
    seq unclip quot dip prefix ; inline