From 6103dca8ee311299bd438acf7fe74774821b8f07 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 27 Oct 1997 14:14:37 -0200
Subject: [PATCH] small bug.

---
 lvm.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lvm.c b/lvm.c
index 3bd5eff2..1ba3e310 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 1.11 1997/10/24 17:17:24 roberto Exp roberto $
+** $Id: lvm.c,v 1.12 1997/10/24 18:40:29 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -277,7 +277,7 @@ StkId luaV_execute (Closure *cl, StkId base)
   Byte *pc = cl->consts[0].value.tf->code;
   TObject *consts = cl->consts[0].value.tf->consts;
   if (lua_callhook)
-    luaD_callHook(base, LUA_T_MARK, 0);
+    luaD_callHook(base, LUA_T_PROTO, 0);
   luaD_checkstack((*pc++)+EXTRA_STACK);
   while (1) {
     int aux;
@@ -671,7 +671,7 @@ StkId luaV_execute (Closure *cl, StkId base)
         /* goes through */
       case RETCODE:
         if (lua_callhook)
-          luaD_callHook(base, LUA_T_MARK, 1);
+          luaD_callHook(base, LUA_T_PROTO, 1);
         return (base + ((aux==RETCODE) ? *pc : 0));
 
       case SETLINEW: