write-tuple ( class -- quot )

Vocabulary

tuple-arrays.private

Inputs

class

an object

Outputs

quot

an object

Definition

USING: combinators inverse kernel sequences sequences.private ;

IN: tuple-arrays.private

MACRO: write-tuple ( class -- quot )
    [ '[ [ _ boa ] undo ] ] [
        tuple-arity <iota> <reversed>
        [ '[ [ _ ] dip set-nth-unsafe ] ] map '[ _ cleave ]
    ] bi '[ _ dip @ ] ;