lua_tag should return LUA_NOTAG for non-valid indices

2 files changed, 9 insertions, 3 deletions

diff --git a/bugs b/bugs
index c82a31d5..e10e7f60 100644
--- a/bugs
+++ b/bugs
@@ -215,5 +215,11 @@ Mon Sep 25 11:47:48 EST 2000
 
 ** lgc.c
 Mon Sep 25 11:50:48 EST 2000
->> GC may crash when checking C closures
+>> GC may crash when checking locked C closures
 (by Philip Yi; since 4.0b)
+
+** lapi.c
+Wed Sep 27 09:50:19 EST 2000
+>> lua_tag should return LUA_NOTAG for non-valid indices
+(by Paul Hankin; since 4.0b)
+
diff --git a/lapi.c b/lapi.c
index e664ea43..39e052b4 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.98 2000/09/14 14:09:31 roberto Exp roberto $
+** $Id: lapi.c,v 1.99 2000/09/18 19:39:26 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -131,7 +131,7 @@ int lua_isnumber (lua_State *L, int index) {
 int lua_tag (lua_State *L, int index) {
   btest(L, index, 
    ((ttype(o) == TAG_USERDATA) ? tsvalue(o)->u.d.tag :
-                                 luaT_effectivetag(L, o)), -1);
+                                 luaT_effectivetag(L, o)), LUA_NOTAG);
 }
 
 int lua_equal (lua_State *L, int index1, int index2) {