diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-06-06 09:40:36 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-06-06 09:40:36 -0300 |
commit | 630acb204869f367e31a57d850b3669f49430064 (patch) | |
tree | 61e89fb1b1849026cec3b6b318fe330700d50623 | |
parent | 16f4723398c0e4c21d9a94539022ac1a4358b5f2 (diff) | |
download | lua-630acb204869f367e31a57d850b3669f49430064.tar.gz lua-630acb204869f367e31a57d850b3669f49430064.tar.bz2 lua-630acb204869f367e31a57d850b3669f49430064.zip |
_ERRORMESSAGE `accepts' non-string arguments (at least for now...)
-rw-r--r-- | ldblib.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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"); |