diff options
-rw-r--r-- | lparser.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lparser.c,v 1.203 2002/12/19 11:11:55 roberto Exp roberto $ | 2 | ** $Id: lparser.c,v 1.204 2003/02/11 10:46:24 roberto Exp roberto $ |
3 | ** Lua Parser | 3 | ** Lua Parser |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -644,12 +644,14 @@ static void prefixexp (LexState *ls, expdesc *v) { | |||
644 | singlevar(ls, v, 1); | 644 | singlevar(ls, v, 1); |
645 | return; | 645 | return; |
646 | } | 646 | } |
647 | #ifdef LUA_COMPATUPSYNTAX | ||
647 | case '%': { /* for compatibility only */ | 648 | case '%': { /* for compatibility only */ |
648 | next(ls); /* skip `%' */ | 649 | next(ls); /* skip `%' */ |
649 | singlevar(ls, v, 1); | 650 | singlevar(ls, v, 1); |
650 | check_condition(ls, v->k == VUPVAL, "global upvalues are obsolete"); | 651 | check_condition(ls, v->k == VUPVAL, "global upvalues are obsolete"); |
651 | return; | 652 | return; |
652 | } | 653 | } |
654 | #endif | ||
653 | default: { | 655 | default: { |
654 | luaX_syntaxerror(ls, "unexpected symbol"); | 656 | luaX_syntaxerror(ls, "unexpected symbol"); |
655 | return; | 657 | return; |