unpluralize ( str -- newstr )

Vocabulary

math.text.french.private

Inputs

str

an object

Outputs

newstr

an object

Definition

USING: kernel sequences ;

IN: math.text.french.private

: unpluralize ( str -- newstr )
    dup "ts" tail? [ but-last ] when ;