1 files changed, 2 insertions, 2 deletions
diff --git a/ltests.c b/ltests.c
index a91d51d6..320d5304 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 1.4 2000/01/13 16:30:47 roberto Exp roberto $
+** $Id: ltests.c,v 1.5 2000/01/19 12:00:45 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -182,7 +182,7 @@ static void testC (lua_State *L) {
      lua_pushobject(L, reg[getreg(L, &pc)]);
    }
    else if EQ("call") {
-      lua_call(L, getname(&pc));
+      if (lua_call(L, getname(&pc))) lua_error(L, NULL);
    }
    else if EQ("gettable") {
      reg[getreg(L, &pc)] = lua_gettable(L);

diff --git a/ltests.c b/ltests.c index a91d51d6..320d5304 100644 --- a/ltests.c +++ b/ltests.c
@@ -1,5 +1,5 @@
1	/*	1	/*
2	** $Id: ltests.c,v 1.4 2000/01/13 16:30:47 roberto Exp roberto $	2	** $Id: ltests.c,v 1.5 2000/01/19 12:00:45 roberto Exp roberto $
3	** Internal Module for Debugging of the Lua Implementation	3	** Internal Module for Debugging of the Lua Implementation
4	** See Copyright Notice in lua.h	4	** See Copyright Notice in lua.h
5	*/	5	*/
@@ -182,7 +182,7 @@ static void testC (lua_State *L) {
182	lua_pushobject(L, reg[getreg(L, &pc)]);	182	lua_pushobject(L, reg[getreg(L, &pc)]);
183	}	183	}
184	else if EQ("call") {	184	else if EQ("call") {
185	lua_call(L, getname(&pc));	185	if (lua_call(L, getname(&pc))) lua_error(L, NULL);
186	}	186	}
187	else if EQ("gettable") {	187	else if EQ("gettable") {
188	reg[getreg(L, &pc)] = lua_gettable(L);	188	reg[getreg(L, &pc)] = lua_gettable(L);