/extra/combinators/tuple/tuple.factor

 1! (c)2009 Joe Groff bsd license
 2USING: accessors assocs classes.tuple generalizations kernel
 3locals quotations sequences ;
 4IN: combinators.tuple
 5
 6<PRIVATE
 7
 8:: (tuple-slot-quot) ( slot assoc n -- quot )
 9    slot name>> assoc at [
10        slot initial>> :> initial
11        { n ndrop initial } >quotation
12    ] unless* ;
13
14PRIVATE>
15
16MACRO:: nmake-tuple ( class assoc n -- )
17    class all-slots [ assoc n (tuple-slot-quot) ] map :> quots
18    class <wrapper> :> \class
19    { quots n ncleave \class boa } >quotation ;
20    
21: make-tuple ( x class assoc -- tuple )
22    1 nmake-tuple ; inline
23
24: 2make-tuple ( x y class assoc -- tuple )
25    2 nmake-tuple ; inline
26
27: 3make-tuple ( x y z class assoc -- tuple )
28    3 nmake-tuple ; inline
29