stack-nth ( n -- quot )

Vocabulary

stack-as-data

Inputs

n

an object

Outputs

quot

an object

Definition

USING: generalizations kernel math shuffle ;

IN: stack-as-data

MACRO: stack-nth ( n -- quot )
    [ '[ 1 _ ndupd ] ] [ 1 + '[ _ nrot ] ] bi '[ @ @ ] ;