closure-with ( vertex quot1: ( key -- vertices ) quot2: ( vertex -- keys ) -- set )

Vocabulary

hacker-news

Inputs

vertex	an object
quot1	a quotation with stack effect ( key -- vertices )
quot2	a quotation with stack effect ( vertex -- keys )

Outputs

set

an object

Definition

USING: graphs kernel sequences ;

IN: hacker-news

: closure-with
    ( vertex quot1: ( key -- vertices ) quot2: ( vertex -- keys ) -- set )
    over [ map ] curry compose [ closure ] curry compose call ;
    inline