delete-to-edges ( to digraph -- )

Vocabulary

digraphs

Inputs

to	an object
digraph	an object

Outputs

None

Definition

USING: accessors assocs kernel sequences ;

IN: digraphs

: delete-to-edges ( to digraph -- )
    [ nip dupd edges>> remove! drop ] assoc-each drop ;