-ing ( str -- str ? )

Vocabulary

porter-stemmer

Inputs

str

an object

Outputs

str	an object
?	an object

Definition

USING: kernel sequences ;

IN: porter-stemmer

: -ing ( str -- str ? )
    dup stem-vowel? [ [ "ing" append ] unless ] keep ;