set-vectored-nth ( struct-class -- quot: ( value i vector -- ) )

Vocabulary

classes.struct.vectored.private

Inputs

struct-class

an object

Outputs

quot	a quotation with stack effect ( value i vector -- )

Definition

USING: accessors classes.struct combinators kernel quotations
sequences sequences.private slots ;

IN: classes.struct.vectored.private

MACRO: set-vectored-nth
    ( struct-class -- quot: ( value i vector -- ) )
    struct-slots [
        name>> reader-word 1quotation dup [ [ [ ] ] curry ] dip
        [ tri* set-nth-unsafe ] curry compose
    ] map [ 3cleave ] curry ;