experiment-title ( word -- string )

Vocabulary

tools.test.private

Inputs

word

an object

Outputs

string

an object

Definition

USING: assocs kernel splitting unicode ;

IN: tools.test.private

: experiment-title ( word -- string )
    "(" ?head drop ")" ?tail drop H{ { 45 32 } } substitute
    >title ;