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

Vocabulary

graphviz.notation.private

Inputs

class	an object
attr	an object

Outputs

None

Definition

USING: kernel present quotations slots words ;

IN: graphviz.notation.private

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