vm/tuples.hpp

   1 namespace factor
   2 {
   3
   4 inline static cell tuple_size(tuple_layout *layout)
   5 {
   6         cell size = untag_fixnum(layout->size);
   7         return sizeof(tuple) + size * sizeof(cell);
   8 }
   9
  10 PRIMITIVE(tuple);
  11 PRIMITIVE(tuple_boa);
  12 PRIMITIVE(tuple_layout);
  13
  14 }