-
-// Allocate
-tuple *tuple_create(int arity,...) {
- va_list ap;
- int i;
- tuple *t = (tuple *)malloc( arity * sizeof( void* ) );
- va_start( ap, arity );
- for ( i = 0; i < arity; i++ ) {
- (*t)[i] = va_arg( ap, void* );
- }
- va_end( ap );
- return t;
-}
-
-tuple *tuple_clone(int arity,tuple *t) {
- tuple *ct = (tuple *)malloc( arity * sizeof( void* ) );
- memcpy( ct, t, arity * sizeof( void* ) );
- return ct;
-}
-