add-vertex ( key value digraph -- )

Vocabulary

digraphs

Inputs

key	an object
value	an object
digraph	an object

Outputs

None

Definition

USING: assocs kernel ;

IN: digraphs

: add-vertex ( key value digraph -- )
    [ <vertex> swap ] dip set-at ;