(ppop-contraction) ( node -- node' tail' )

Vocabulary

persistent.vectors.private

Inputs

node

an object

Outputs

node'	an object
tail'	an object

Definition

USING: accessors kernel sequences ;

IN: persistent.vectors.private

: (ppop-contraction) ( node -- node' tail' )
    clone [ unclip-last swap ] change-children swap ;