aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2002-06-06 09:40:36 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2002-06-06 09:40:36 -0300
commit630acb204869f367e31a57d850b3669f49430064 (patch)
tree61e89fb1b1849026cec3b6b318fe330700d50623
parent16f4723398c0e4c21d9a94539022ac1a4358b5f2 (diff)
downloadlua-630acb204869f367e31a57d850b3669f49430064.tar.gz
lua-630acb204869f367e31a57d850b3669f49430064.tar.bz2
lua-630acb204869f367e31a57d850b3669f49430064.zip
_ERRORMESSAGE `accepts' non-string arguments (at least for now...)
-rw-r--r--ldblib.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/ldblib.c b/ldblib.c
index 329cb23d..7fbff55d 100644
--- a/ldblib.c
+++ b/ldblib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldblib.c,v 1.54 2002/06/03 17:47:18 roberto Exp roberto $ 2** $Id: ldblib.c,v 1.55 2002/06/05 17:24:04 roberto Exp roberto $
3** Interface from Lua to its debug API 3** Interface from Lua to its debug API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -185,7 +185,8 @@ static int errorfb (lua_State *L) {
185 int level = 1; /* skip level 0 (it's this function) */ 185 int level = 1; /* skip level 0 (it's this function) */
186 int firstpart = 1; /* still before eventual `...' */ 186 int firstpart = 1; /* still before eventual `...' */
187 lua_Debug ar; 187 lua_Debug ar;
188 luaL_check_string(L, 1); 188 if (!lua_isstring(L, 1))
189 return lua_gettop(L);
189 lua_settop(L, 1); 190 lua_settop(L, 1);
190 lua_pushliteral(L, "\n"); 191 lua_pushliteral(L, "\n");
191 lua_pushliteral(L, "stack traceback:\n"); 192 lua_pushliteral(L, "stack traceback:\n");