many ( verbexp -- verbexp )


Vocabulary
verbal-expressions

Inputs
verbexpan object


Outputs
verbexpan object


Definition
USING: accessors kernel sequences ;

IN: verbal-expressions

: many ( verbexp -- verbexp )
[ dup ?last "*+" member? [ "+" append ] unless ]
change-source ;