| 268 | |
| 269 | |
| 270 | static int load_aux (lua_State *L, int status, int envidx) { |
| 271 | if (status == LUA_OK) { |
| 272 | if (envidx != 0) { /* 'env' parameter? */ |
| 273 | lua_pushvalue(L, envidx); /* environment for loaded function */ |
| 274 | if (!lua_setupvalue(L, -2, 1)) /* set it as 1st upvalue */ |
| 275 | lua_pop(L, 1); /* remove 'env' if not used by previous call */ |
| 276 | } |
| 277 | return 1; |
| 278 | } |
| 279 | else { /* error (message is on top of the stack) */ |
| 280 | lua_pushnil(L); |
| 281 | lua_insert(L, -2); /* put before error message */ |
| 282 | return 2; /* return nil plus error message */ |
| 283 | } |
| 284 | } |
| 285 | |
| 286 | |
| 287 | static int luaB_loadfile (lua_State *L) { |
no test coverage detected