case1 ( str quot glue -- str' )


Vocabulary
tokencase.private

Inputs
stran object
quotan object
gluean object


Outputs
str'an object


Definition
USING: kernel sequences ;

IN: tokencase.private

: case1 ( str quot glue -- str' )
[ split-tokens ] [ map ] [ join ] tri* ; inline