?replace-first ( seq first -- seq )

Vocabulary

soundex.private

Inputs

seq	an object
first	an object

Outputs

seq

an object

Definition

USING: ascii kernel sequences ;

IN: soundex.private

: ?replace-first ( seq first -- seq )
    over first digit? [ over set-first ] [ drop ] if ;