vm/words.hpp

   1 namespace factor
   2 {
   3
   4 word *allot_word(cell vocab, cell name);
   5
   6 PRIMITIVE(word);
   7 PRIMITIVE(word_xt);
   8 void update_word_xt(cell word);
   9
  10 inline bool word_optimized_p(word *word)
  11 {
  12         return word->code->type == WORD_TYPE;
  13 }
  14
  15 PRIMITIVE(optimized_p);
  16
  17 PRIMITIVE(wrapper);
  18
  19 }