(typed-set) ( value name type setter: ( value name -- ) -- )

Vocabulary

typed.namespaces

Inputs

value	an object
name	an object
type	an object
setter	a quotation with stack effect ( value name -- )

Outputs

None

Definition

USING: classes kernel ;

IN: typed.namespaces

:: (typed-set)
    ( value name type setter: ( value name -- ) -- )
    value type instance?
    [ name value type variable-type-error ] unless
    value name setter call ; inline