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

(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