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 ] curry [ undo ] curry ] [
        tuple-arity <iota> <reversed>
        [ [ ] curry [ dip set-nth-unsafe ] curry ] map
        [ cleave ] curry
    ] bi [ [ dip ] curry ] dip compose ;