| 321 | |
| 322 | |
| 323 | static int load_aux (lua_State *L, int status, int envidx) { |
| 324 | if (l_likely(status == LUA_OK)) { |
| 325 | if (envidx != 0) { /* 'env' parameter? */ |
| 326 | lua_pushvalue(L, envidx); /* environment for loaded function */ |
| 327 | if (!lua_setupvalue(L, -2, 1)) /* set it as 1st upvalue */ |
| 328 | lua_pop(L, 1); /* remove 'env' if not used by previous call */ |
| 329 | } |
| 330 | return 1; |
| 331 | } |
| 332 | else { /* error (message is on top of the stack) */ |
| 333 | luaL_pushfail(L); |
| 334 | lua_insert(L, -2); /* put before error message */ |
| 335 | return 2; /* return fail plus error message */ |
| 336 | } |
| 337 | } |
| 338 | |
| 339 | |
| 340 | static int luaB_loadfile (lua_State *L) { |
no test coverage detected