vm/arrays.hpp

   1 namespace factor
   2 {
   3
   4 inline cell array_nth(array *array, cell slot)
   5 {
   6 #ifdef FACTOR_DEBUG
   7         assert(slot < array_capacity(array));
   8         assert(array->h.hi_tag() == ARRAY_TYPE);
   9 #endif
  10         return array->data()[slot];
  11 }
  12
  13 PRIMITIVE(array);
  14 PRIMITIVE(resize_array);
  15
  16
  17 }