-or- ( verbexp -- verbexp )


Vocabulary
verbal-expressions

Inputs
verbexpan object


Outputs
verbexpan object


Definition
USING: accessors sequences ;

IN: verbal-expressions

: -or- ( verbexp -- verbexp )
[ "(" append ] change-prefix [ ")|(" append ] change-source
[ ")" prepend ] change-suffix ;