From 26679b1a48de4f7cfcde985764cb31c78ece4fc3 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 7 Jan 1998 14:26:48 -0200
Subject: back to upavalues as extra arguments for C closures; this way it's
 trivial to make currying.

---
 lapi.c | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'lapi.c')

diff --git a/lapi.c b/lapi.c
index 2bcabed0..63e6dbfd 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.16 1997/12/22 17:52:20 roberto Exp roberto $
+** $Id: lapi.c,v 1.17 1998/01/02 17:46:32 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -124,15 +124,6 @@ lua_Object lua_lua2C (int number)
 }
 
 
-lua_Object lua_upvalue (int n)
-{
-  TObject *f = L->stack.stack+L->Cstack.lua2C-1;
-  if (ttype(f) != LUA_T_CLMARK || n <= 0 || n > clvalue(f)->nelems)
-    return LUA_NOOBJECT;
-  return put_luaObject(&clvalue(f)->consts[n]);
-}
-
-
 int lua_callfunction (lua_Object function)
 {
   if (function == LUA_NOOBJECT)
-- 
cgit v1.2.3-55-g6feb