diff options
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.83 2000/08/08 20:42:07 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.84 2000/08/09 19:16:57 roberto Exp roberto $ |
| 3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -202,7 +202,7 @@ void luaD_call (lua_State *L, StkId func, int nResults) { | |||
| 202 | default: { /* `func' is not a function; check the `function' tag method */ | 202 | default: { /* `func' is not a function; check the `function' tag method */ |
| 203 | const TObject *im = luaT_getimbyObj(L, func, IM_FUNCTION); | 203 | const TObject *im = luaT_getimbyObj(L, func, IM_FUNCTION); |
| 204 | if (ttype(im) == TAG_NIL) | 204 | if (ttype(im) == TAG_NIL) |
| 205 | luaG_callerror(L, func); | 205 | luaG_typeerror(L, func, "call"); |
| 206 | luaD_openstack(L, func); | 206 | luaD_openstack(L, func); |
| 207 | *func = *im; /* tag method is the new function to be called */ | 207 | *func = *im; /* tag method is the new function to be called */ |
| 208 | goto retry; /* retry the call */ | 208 | goto retry; /* retry the call */ |
