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

Vocabulary

linked-sets.private

Inputs

key	an object
assoc	an object
dlist	an object

Outputs

None

Definition

USING: assocs deques kernel ;

IN: linked-sets.private

: (delete-at) ( key assoc dlist -- )
    '[ at [ _ delete-node ] when* ] [ delete-at ] 2bi ; inline