Fix bug: Index out of bounds

Revert this commit. There was no off-by-one but this commit created one.

Commit commit 299a29f
Author: Alexander van Gessel <ai0867@gmail.com>
Date:   Mon Dec 2 17:55:02 2013 +0100

    Fix an off-by-one past-the-end buffer read in lua

    Found by coverity

src/lua/llex.cpp

@@ -72,7 +72,7 @@ void luaX_init (lua_State *L) {
 
 
 const char *luaX_token2str (LexState *ls, int token) {
-  if (token < FIRST_RESERVED - 1) {  /* single-byte symbols? */
+  if (token < FIRST_RESERVED) {  /* single-byte symbols? */
     lua_assert(token == cast(unsigned char, token));
     return (lisprint(token)) ? luaO_pushfstring(ls->L, LUA_QL("%c"), token) :
                               luaO_pushfstring(ls->L, "char(%d)", token);