how to get environment in which a C function was called?

[Graham Wakefield <lists@...>]

I'm looking for the equivalent of getfenv(1) in the C API, to find  
out in what environment a function that in turn calls C was called.

say I have a function:

function test()
	print("my calling environment", getfenv(1))
	cprintenv()
end

cprintenv is a lua_CFunction:

int cprintenv(lua_State * L)
{
	printf("LUA_ENVIRONINDEX %p\n", lua_topointer(L, LUA_ENVIRONINDEX));
}


now if I call in C:

lua_getglobal(L, "test");

// create a new environment table
lua_newtable(L);
printf("new environment table %p\n", lua_topointer(L,  
LUA_ENVIRONINDEX));
lua_pushstring(L, "__index");
lua_pushvalue(L, LUA_GLOBALSINDEX);
lua_settable(L, -3);

// setfenv(test)
lua_setfenv(L, -2);

// call it
lua_pcall(L, 0, 0, 0);

The result is that the current environment as stated in C  
(LUA_ENVIRONINDEX) is the global table, not the current environment  
(the new table applied to the function test).  If this is expected  
behaviour, then how can I get the current environment in which a  
lua_CFunction was called, the equivalent of getfenv(1) in the C API?

Thanks.