diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1998-01-07 14:26:48 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1998-01-07 14:26:48 -0200 |
commit | 26679b1a48de4f7cfcde985764cb31c78ece4fc3 (patch) | |
tree | df30c6972204791dd6a792dd36c1dd132bc5dbf4 /lbuiltin.c | |
parent | e04c2b9aa817ed59b4e05025e0d33bfb3bba8f59 (diff) | |
download | lua-26679b1a48de4f7cfcde985764cb31c78ece4fc3.tar.gz lua-26679b1a48de4f7cfcde985764cb31c78ece4fc3.tar.bz2 lua-26679b1a48de4f7cfcde985764cb31c78ece4fc3.zip |
back to upavalues as extra arguments for C closures; this way it's
trivial to make currying.
Diffstat (limited to 'lbuiltin.c')
-rw-r--r-- | lbuiltin.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbuiltin.c,v 1.20 1997/12/30 17:57:45 roberto Exp roberto $ | 2 | ** $Id: lbuiltin.c,v 1.21 1998/01/02 17:46:32 roberto Exp roberto $ |
3 | ** Built-in functions | 3 | ** Built-in functions |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -441,7 +441,6 @@ static void testC (void) | |||
441 | case 'r': { int n=getnum(s); reg[n]=lua_getref(locks[getnum(s)]); break; } | 441 | case 'r': { int n=getnum(s); reg[n]=lua_getref(locks[getnum(s)]); break; } |
442 | case 'u': lua_unref(locks[getnum(s)]); break; | 442 | case 'u': lua_unref(locks[getnum(s)]); break; |
443 | case 'p': { int n = getnum(s); reg[n] = lua_getparam(getnum(s)); break; } | 443 | case 'p': { int n = getnum(s); reg[n] = lua_getparam(getnum(s)); break; } |
444 | case 'U': { int n = getnum(s); reg[n] = lua_upvalue(getnum(s)); break; } | ||
445 | case '=': lua_setglobal(getname(s)); break; | 444 | case '=': lua_setglobal(getname(s)); break; |
446 | case 's': lua_pushstring(getname(s)); break; | 445 | case 's': lua_pushstring(getname(s)); break; |
447 | case 'o': lua_pushobject(reg[getnum(s)]); break; | 446 | case 'o': lua_pushobject(reg[getnum(s)]); break; |