vm/words.hpp

   1 namespace factor
   2 {
   3
   4 PRIMITIVE(word);
   5 PRIMITIVE(word_xt);
   6
   7 inline bool word_optimized_p(word *word)
   8 {
   9         return word->code->type == WORD_TYPE;
  10 }
  11
  12 PRIMITIVE(optimized_p);
  13 PRIMITIVE(wrapper);
  14
  15 }