| 300 | |
| 301 | |
| 302 | static int load_aux (lua_State *L, int status, int envidx) { |
| 303 | if (l_likely(status == LUA_OK)) { |
| 304 | if (envidx != 0) { /* 'env' parameter? */ |
| 305 | lua_pushvalue(L, envidx); /* environment for loaded function */ |
| 306 | if (!lua_setupvalue(L, -2, 1)) /* set it as 1st upvalue */ |
| 307 | lua_pop(L, 1); /* remove 'env' if not used by previous call */ |
| 308 | } |
| 309 | return 1; |
| 310 | } |
| 311 | else { /* error (message is on top of the stack) */ |
| 312 | luaL_pushfail(L); |
| 313 | lua_insert(L, -2); /* put before error message */ |
| 314 | return 2; /* return fail plus error message */ |
| 315 | } |
| 316 | } |
| 317 | |
| 318 | |
| 319 | static int luaB_loadfile (lua_State *L) { |
no test coverage detected