factor/vm/words.hpp

20 lines
275 B
C++
Raw Normal View History

2009-05-04 02:46:13 -04:00
namespace factor
{
2009-05-02 05:04:19 -04:00
F_WORD *allot_word(CELL vocab, CELL name);
PRIMITIVE(word);
PRIMITIVE(word_xt);
2009-05-02 10:19:09 -04:00
void update_word_xt(CELL word);
2009-05-02 05:04:19 -04:00
inline bool word_optimized_p(F_WORD *word)
2009-05-02 05:04:19 -04:00
{
return word->code->block.type == WORD_TYPE;
}
PRIMITIVE(optimized_p);
2009-05-02 05:04:19 -04:00
PRIMITIVE(wrapper);
2009-05-04 02:46:13 -04:00
}