nset-nth-unsafe ( n -- quot )

Vocabulary

sequences.generalizations

Inputs

n

an object

Outputs

quot

an object

Definition

USING: generalizations kernel math sequences.private ;

IN: sequences.generalizations

MACRO: nset-nth-unsafe ( n -- quot )
    [ [ drop ] ] [
        [ [ [ set-nth-unsafe ] ] ] dip
        [ [ apply-curry ] [ cleave-curry ] [ spread* ] tri ]
        curry compose
    ] if-zero ;