search-services ( services quot: ( key -- ? ) -- urls )

Vocabulary

rdap.private

Inputs

services	an object
quot	a quotation with stack effect ( key -- ? )

Outputs

urls

an object

Definition

USING: assocs kernel sequences ;

IN: rdap.private

: search-services ( services quot: ( key -- ? ) -- urls )
    [ [ drop ] ] dip [ any? ] curry compose assoc-find drop nip
    ; inline