|
|
@ -1,5 +1,5 @@ |
|
|
|
/*
|
|
|
|
** $Id: lauxlib.c,v 1.101 2003/05/15 12:20:24 roberto Exp roberto $ |
|
|
|
** $Id: lauxlib.c,v 1.102 2003/05/16 18:59:08 roberto Exp roberto $ |
|
|
|
** Auxiliary functions for building Lua libraries |
|
|
|
** See Copyright Notice in lua.h |
|
|
|
*/ |
|
|
@ -74,7 +74,7 @@ static void tag_error (lua_State *L, int narg, int tag) { |
|
|
|
LUALIB_API void luaL_where (lua_State *L, int level) { |
|
|
|
lua_Debug ar; |
|
|
|
if (lua_getstack(L, level, &ar)) { /* check function at level */ |
|
|
|
lua_getinfo(L, "Snl", &ar); /* get info about it */ |
|
|
|
lua_getinfo(L, "Sl", &ar); /* get info about it */ |
|
|
|
if (ar.currentline > 0) { /* is there info? */ |
|
|
|
lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline); |
|
|
|
return; |
|
|
|