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