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);
|
|
|
|
|
2009-05-04 02:00:30 -04:00
|
|
|
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
|
|
|
|
2009-05-04 02:00:30 -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;
|
|
|
|
}
|
|
|
|
|
2009-05-04 02:00:30 -04:00
|
|
|
PRIMITIVE(optimized_p);
|
2009-05-02 05:04:19 -04:00
|
|
|
|
2009-05-04 02:00:30 -04:00
|
|
|
PRIMITIVE(wrapper);
|
2009-05-04 02:46:13 -04:00
|
|
|
|
|
|
|
}
|