Разобрался.Сначала я добавил новый токен TK_GLOBAL в конец перечисления RESERVED.
Затем в luaX_init () я добавил ...
ts = luaS_new(L, "global");
luaS_fix(ts);
ts->tsv.reserved = cast_byte(TK_GLOBAL+1-FIRST_RESERVED);
И, наконец, в функцию Statement () я добавил...
case TK_GLOBAL:
luaX_next(ls);
break;
Насколько я могу сказать, это работает.Надеюсь, это безопасно.