-ion ( str -- newstr )

Vocabulary

porter-stemmer

Inputs

str

an object

Outputs

newstr

an object

Definition

USING: kernel sequences ;

IN: porter-stemmer

: -ion ( str -- newstr )
    [ "ion" ] [ dup "st" last-is? [ "ion" append ] unless ]
    if-empty ;