set-product-value ( seq product quot: ( value model -- ) -- )

Vocabulary

models.product

Inputs

seq	an object
product	an object
quot	a quotation with stack effect ( value model -- )

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: models.product

: set-product-value
    ( seq product quot: ( value model -- ) -- )
    [ dependencies>> ] dip 2each ; inline