=attr-generic ( name -- generic )

Vocabulary

graphviz.notation.private

Inputs

name

an object

Outputs

generic

an object

Definition

USING: generic generic.standard kernel sequences words ;

IN: graphviz.notation.private

: =attr-generic ( name -- generic )
    "=" prepend "graphviz.notation" 2dup lookup-word
    [ 2nip ] [
        create-word
        dup 1 <standard-combination>
        ( graphviz-obj val -- graphviz-obj' ) define-generic
    ] if* ;