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

Vocabulary

graphs.private

Inputs

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

Outputs

None

Definition

USING: kernel sequences sets ;

IN: graphs.private

: (closure) ( vertex set quot: ( vertex -- edges ) -- )
    2over ?adjoin
    [ [ dip ] keep [ (closure) ] 2curry each ] [ 3drop ] if ;
    inline recursive