vm/tagged.hpp

   1 namespace factor
   2 {
   3
   4 template <typename TYPE> cell tag(TYPE *value)
   5 {
   6         return RETAG(value,tag_for(TYPE::type_number));
   7 }
   8
   9 inline static cell tag_dynamic(object *value)
  10 {
  11         return RETAG(value,tag_for(value->h.hi_tag()));
  12 }
  13 }