|
|
@ -1,5 +1,5 @@ |
|
|
|
/*
|
|
|
|
** $Id: loadlib.c,v 1.59 2007/12/12 14:36:12 roberto Exp roberto $ |
|
|
|
** $Id: loadlib.c,v 1.60 2008/08/05 19:25:42 roberto Exp roberto $ |
|
|
|
** Dynamic library loader for Lua |
|
|
|
** See Copyright Notice in lua.h |
|
|
|
** |
|
|
@ -524,8 +524,7 @@ static void setfenv (lua_State *L) { |
|
|
|
if (lua_getstack(L, 1, &ar) == 0 || |
|
|
|
lua_getinfo(L, "f", &ar) == 0 || /* get calling function */ |
|
|
|
lua_iscfunction(L, -1)) |
|
|
|
luaL_error(L, "function " LUA_QL("module") |
|
|
|
" not called from a Lua function"); |
|
|
|
luaL_error(L, LUA_QL("module") " not called from a Lua function"); |
|
|
|
lua_pushvalue(L, -2); /* copy new environment table to top */ |
|
|
|
lua_setfenv(L, -2); |
|
|
|
lua_pop(L, 1); /* remove function */ |
|
|
|