From 9744255ae929d11661ae622201a6d627b6403088 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 24 Jan 2000 18:11:26 -0200
Subject: error in call must be propagated

---
 ltests.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ltests.c')

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);
-- 
cgit v1.2.3-55-g6feb