no more "lua" in error messages
This commit is contained in:
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
** $Id: lbuiltin.c,v 1.86 1999/12/20 13:10:38 roberto Exp roberto $
|
** $Id: lbuiltin.c,v 1.87 1999/12/23 18:19:57 roberto Exp roberto $
|
||||||
** Built-in functions
|
** Built-in functions
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
@@ -107,7 +107,7 @@ void luaB_ERRORMESSAGE (lua_State *L) {
|
|||||||
lua_Object al = lua_rawgetglobal(L, "_ALERT");
|
lua_Object al = lua_rawgetglobal(L, "_ALERT");
|
||||||
if (lua_isfunction(L, al)) { /* avoid error loop if _ALERT is not defined */
|
if (lua_isfunction(L, al)) { /* avoid error loop if _ALERT is not defined */
|
||||||
char buff[600];
|
char buff[600];
|
||||||
sprintf(buff, "lua error: %.500s\n", luaL_check_string(L, 1));
|
sprintf(buff, "error: %.500s\n", luaL_check_string(L, 1));
|
||||||
lua_pushstring(L, buff);
|
lua_pushstring(L, buff);
|
||||||
lua_callfunction(L, al);
|
lua_callfunction(L, al);
|
||||||
}
|
}
|
||||||
|
|||||||
4
liolib.c
4
liolib.c
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
** $Id: liolib.c,v 1.51 1999/11/22 13:12:07 roberto Exp roberto $
|
** $Id: liolib.c,v 1.52 1999/11/22 17:39:51 roberto Exp roberto $
|
||||||
** Standard I/O (and system) library
|
** Standard I/O (and system) library
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
@@ -533,7 +533,7 @@ static void errorfb (lua_State *L) {
|
|||||||
char buff[MAXMESSAGE];
|
char buff[MAXMESSAGE];
|
||||||
int level = 1; /* skip level 0 (it's this function) */
|
int level = 1; /* skip level 0 (it's this function) */
|
||||||
lua_Object func;
|
lua_Object func;
|
||||||
sprintf(buff, "lua error: %.200s\n", lua_getstring(L, lua_getparam(L, 1)));
|
sprintf(buff, "error: %.200s\n", lua_getstring(L, lua_getparam(L, 1)));
|
||||||
while ((func = lua_stackedfunction(L, level++)) != LUA_NOOBJECT) {
|
while ((func = lua_stackedfunction(L, level++)) != LUA_NOOBJECT) {
|
||||||
const char *name;
|
const char *name;
|
||||||
int currentline;
|
int currentline;
|
||||||
|
|||||||
Reference in New Issue
Block a user