define-vectored-accessors ( S>> S<< T -- )

Vocabulary

classes.struct.vectored.private

Inputs

S>>	an object
S<<	an object
T	an object

Outputs

None

Definition

USING: functors.backend functors.private generic generic.parser
kernel namespaces sequences sequences.private words ;

IN: classes.struct.vectored.private

:: define-vectored-accessors ( S>> S<< T -- )
    T S>> create-method-in dup \ method set T{ fake-quotation
        { seq
            {
                T{ fake-quotation { seq ~array~ } }
                T{ fake-quotation { seq ~array~ } }
                bi
                nth-unsafe
            }
        }
    } fake-quotations> first define* last-word make-inline
    T S<< create-method-in dup \ method set T{ fake-quotation
        { seq
            {
                T{ fake-quotation { seq ~array~ } }
                T{ fake-quotation { seq ~array~ } }
                bi
                set-nth-unsafe
            }
        }
    } fake-quotations> first define* last-word make-inline ;