add-effect-input ( effect -- effect' )

Vocabulary
effects

Definition

USING: accessors kernel sequences ;

IN: effects

: add-effect-input ( effect -- effect' )
    [ in>> "obj" suffix ] [ out>> ] [ terminated?>> ] tri
    <terminated-effect> ;