remove ( deque -- item newdeque )

Vocabulary

persistent.deques.private

Inputs

deque

an object

Outputs

item	an object
newdeque	an object

Definition

USING: accessors kernel lists persistent.deques ;

IN: persistent.deques.private

: remove ( deque -- item newdeque )
    [ front>> car ] [ [ front>> cdr ] [ back>> ] bi deque boa ]
    bi ; inline