From 613b60c1565a1b1959822e76c04c38d44b565129 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 21 May 1999 16:54:06 -0300
Subject: detail

---
 lparser.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lparser.c b/lparser.c
index e3696ee5..7ad58ea5 100644
--- a/lparser.c
+++ b/lparser.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lparser.c,v 1.32 1999/05/06 14:41:41 roberto Exp roberto $
+** $Id: lparser.c,v 1.33 1999/05/10 13:54:01 roberto Exp roberto $
 ** LL(1) Parser and code generator for Lua
 ** See Copyright Notice in lua.h
 */
@@ -530,7 +530,8 @@ static void func_onstack (LexState *ls, FuncState *func) {
   else {
     for (i=0; i<func->nupvalues; i++)
       lua_pushvar(ls, &func->upvalues[i]);
-    code_oparg(ls, CLOSURE, c, -func->nupvalues+1);
+    deltastack(ls, 1);  /* CLOSURE puts one extra element (before poping) */
+    code_oparg(ls, CLOSURE, c, -func->nupvalues);
     code_byte(fs, (Byte)func->nupvalues);
   }
 }
-- 
cgit v1.2.3-55-g6feb