edge/node-=attr ( class attr -- )

Vocabulary

graphviz.notation.private

Inputs

class	an object
attr	an object

Outputs

None

Definition

USING: accessors kernel present quotations slots words ;

IN: graphviz.notation.private

: edge/node-=attr ( class attr -- )
    =attr-method writer-word 1quotation
    [ [ present over attributes>> ] ] dip compose define ;