diff --git a/src/lxplib.c b/src/lxplib.c index 1c972db..5712611 100644 --- a/src/lxplib.c +++ b/src/lxplib.c @@ -590,7 +590,7 @@ static void set_info (lua_State *L) { /* ** Adapted from Lua 5.2.0 */ -static void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { +static void compat_luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { luaL_checkstack(L, nup, "too many upvalues"); for (; l->name != NULL; l++) { /* fill the table with given functions */ int i; @@ -602,6 +602,8 @@ static void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { } lua_pop(L, nup); /* remove upvalues */ } +#else +#define compat_luaL_setfuncs(L, reg, nup) luaL_setfuncs(L, reg, nup) #endif @@ -612,11 +614,11 @@ int luaopen_lxp (lua_State *L) { lua_pushvalue(L, -2); lua_rawset(L, -3); - luaL_setfuncs (L, lxp_meths, 0); + compat_luaL_setfuncs (L, lxp_meths, 0); lua_pop (L, 1); /* remove metatable */ lua_newtable (L); - luaL_setfuncs (L, lxp_funcs, 0); + compat_luaL_setfuncs (L, lxp_funcs, 0); set_info (L); return 1; }