replace-underscores ( str -- str' )

Vocabulary

morse.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel sequences ;

IN: morse.private

: replace-underscores ( str -- str' )
    [ dup 95 = [ drop 45 ] when ] map ;