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

Vocabulary

effects

Inputs

effect

an object

Outputs

effect'

an object

Definition

USING: accessors kernel sequences ;

IN: effects

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