parse-services ( data quot: ( key -- key' ) -- services )

Vocabulary

rdap.private

Inputs

data	an object
quot	a quotation with stack effect ( key -- key' )

Outputs

services

an object

Definition

USING: assocs kernel sequences ;

IN: rdap.private

: parse-services ( data quot: ( key -- key' ) -- services )
    [ "services" of ] dip [ map ] curry [ dip ] curry assoc-map
    ; inline