head-to-index ( seq to -- zero to seq )

Vocabulary

sequences.private

Inputs

seq	a sequence
to	an integer

Outputs

seq	a sequence
to	an integer
zero	an object

Word description

Sets up the stack for the head word.

Definition

USING: kernel ;

IN: sequences.private

: head-to-index ( seq to -- zero to seq ) [ 0 ] 2dip swap ;
    inline