! (c)2009 Joe Groff bsd license
USING: accessors assocs classes.tuple generalizations kernel
locals quotations sequences ;
IN: combinators.tuple

<PRIVATE

:: (tuple-slot-quot) ( slot assoc n -- quot )
    slot name>> assoc at [
        slot initial>> :> initial
        { n ndrop initial } >quotation
    ] unless* ;

PRIVATE>

MACRO:: nmake-tuple ( class assoc n -- )
    class all-slots [ assoc n (tuple-slot-quot) ] map :> quots
    class <wrapper> :> \class
    { quots n ncleave \class boa } >quotation ;
    
: make-tuple ( x class assoc -- tuple )
    1 nmake-tuple ; inline

: 2make-tuple ( x y class assoc -- tuple )
    2 nmake-tuple ; inline

: 3make-tuple ( x y z class assoc -- tuple )
    3 nmake-tuple ; inline