case2 ( str first-quot rest-quot glue -- str' )

Vocabulary

tokencase.private

Inputs

str	an object
first-quot	an object
rest-quot	an object
glue	an object

Outputs

str'

an object

Definition

USING: combinators kernel sequences ;

IN: tokencase.private

: case2 ( str first-quot rest-quot glue -- str' )
    {
        [ split-tokens 0 over ]
        [ change-nth dup rest-slice ]
        [ map! drop ]
        [ join ]
    } spread ; inline