smash ( idx seq -- seq/elt ? )

Vocabulary

persistent.hashtables.nodes

Inputs

idx	an object
seq	an object

Outputs

seq/elt	an object
?	an object

Definition

USING: kernel sequences ;

IN: persistent.hashtables.nodes

: smash ( idx seq -- seq/elt ? )
    dup length 2 =
    [ [ 1 = ] dip first2 ? f ] [ remove-nth t ] if ; inline