typed-effect ( eff docs -- typed )

Vocabulary

foogle.private

Inputs

eff	an object
docs	an object

Outputs

typed

an object

Definition

USING: accessors effects kernel sequences ;

IN: foogle.private

:: typed-effect ( eff docs -- typed )
    eff in>> [ docs slot-type ] map eff out>>
    [ docs slot-type ] map
    eff terminated?>> eff in-var>> eff out-var>> effect boa ;