pop-at* ( key assoc -- value/f ? )

Vocabulary

yaml.private

Inputs

key	an object
assoc	an object

Outputs

value/f	an object
?	an object

Definition

USING: assocs kernel ;

IN: yaml.private

: pop-at* ( key assoc -- value/f ? )
    [ at* ] 2keep pick [ delete-at ] [ 2drop ] if ;