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; |
