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);

}