namespace factor
{

word *allot_word(cell vocab, cell name);

PRIMITIVE(word);
PRIMITIVE(word_xt);
void update_word_xt(cell word);

inline bool word_optimized_p(word *word)
{
	return word->code->block.type == WORD_TYPE;
}

PRIMITIVE(optimized_p);

PRIMITIVE(wrapper);

}