(delete-at) ( key assoc dlist -- )

Vocabulary

linked-assocs.private

Inputs

key	an object
assoc	an object
dlist	an object

Outputs

None

Definition

USING: assocs deques kernel ;

IN: linked-assocs.private

: (delete-at) ( key assoc dlist -- )
    [ delete-node ] curry [ [ at ] ] dip [ when* ] curry compose
    [ delete-at ] 2bi ; inline