attrs-obj-=attr ( class attr -- )

Vocabulary

graphviz.notation.private

Inputs

class	an object
attr	an object

Outputs

None

Definition

USING: present quotations slots words ;

IN: graphviz.notation.private

: attrs-obj-=attr ( class attr -- )
    =attr-method setter-word 1quotation '[ present @ ] define ;