stack-set-nth ( obj n -- quot )

Vocabulary

stack-as-data

Inputs

obj	an object
n	an object

Outputs

quot

an object

Definition

USING: generalizations kernel ;

IN: stack-as-data

MACRO: stack-set-nth ( obj n -- quot )
    [ [ [ drop ] ] dip [ ] curry compose ] dip [ ndip ] 2curry ;