closure-as ( vertex quot: ( vertex -- edges ) exemplar -- set )

Vocabulary

graphs

Inputs

vertex	an object
quot	a quotation with stack effect ( vertex -- edges )
exemplar	an object

Outputs

set

an object

Definition

USING: graphs.private kernel ;

IN: graphs

: closure-as
    ( vertex quot: ( vertex -- edges ) exemplar -- set )
    new-empty-set-like [ swap (closure) ] keep ; inline