namespace factor { PRIMITIVE(word); PRIMITIVE(word_xt); inline bool word_optimized_p(word *word) { return word->code->type == WORD_TYPE; } PRIMITIVE(optimized_p); PRIMITIVE(wrapper); }