return new_word.untagged();
}
-word *allot_word(cell vocab_, cell name_)
-{
- return vm->allot_word(vocab_,name_);
-}
-
/* <word> ( name vocabulary -- word ) */
inline void factorvm::vmprim_word()
{
w->xt = w->code->xt();
}
-void update_word_xt(cell w_)
-{
- return vm->update_word_xt(w_);
-}
-
inline void factorvm::vmprim_optimized_p()
{
drepl(tag_boolean(word_optimized_p(untag_check<word>(dpeek()))));
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)
{
}
PRIMITIVE(optimized_p);
-
PRIMITIVE(wrapper);
}