2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
2009-05-04 05:50:24 -04:00
|
|
|
inline static cell tuple_size(tuple_layout *layout)
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
2009-05-04 05:50:24 -04:00
|
|
|
cell size = untag_fixnum(layout->size);
|
|
|
|
return sizeof(tuple) + size * sizeof(cell);
|
2009-05-02 05:04:19 -04:00
|
|
|
}
|
|
|
|
|
2009-05-04 02:00:30 -04:00
|
|
|
PRIMITIVE(tuple);
|
|
|
|
PRIMITIVE(tuple_boa);
|
|
|
|
PRIMITIVE(tuple_layout);
|
2009-05-04 02:46:13 -04:00
|
|
|
|
|
|
|
}
|