factor/vmpp/words.hpp

19 lines
375 B
C++
Raw Normal View History

2009-05-02 05:04:19 -04:00
DEFINE_UNTAG(F_WORD,WORD_TYPE,word)
F_WORD *allot_word(CELL vocab, CELL name);
void primitive_word(void);
void primitive_word_xt(void);
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)
{
return word->code->block.type == WORD_TYPE;
}
void primitive_optimized_p(void);
DEFINE_UNTAG(F_WRAPPER,WRAPPER_TYPE,wrapper)
void primitive_wrapper(void);