diff options
| -rw-r--r-- | ldo.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.225 2003/09/05 14:30:59 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.226 2003/10/03 16:04:11 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 | */ |
| @@ -450,8 +450,8 @@ static void f_parser (lua_State *L, void *ud) { | |||
| 450 | struct SParser *p = cast(struct SParser *, ud); | 450 | struct SParser *p = cast(struct SParser *, ud); |
| 451 | int c = luaZ_lookahead(p->z); | 451 | int c = luaZ_lookahead(p->z); |
| 452 | luaC_checkGC(L); | 452 | luaC_checkGC(L); |
| 453 | tf = (c == LUA_SIGNATURE[0]) ? luaU_undump(L, p->z, &p->buff, p->name) : | 453 | tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z, |
| 454 | luaY_parser(L, p->z, &p->buff, p->name); | 454 | &p->buff, p->name); |
| 455 | cl = luaF_newLclosure(L, 0, gt(L)); | 455 | cl = luaF_newLclosure(L, 0, gt(L)); |
| 456 | cl->l.p = tf; | 456 | cl->l.p = tf; |
| 457 | setclvalue(L->top, cl); | 457 | setclvalue(L->top, cl); |
