aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2003-02-11 08:49:53 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2003-02-11 08:49:53 -0200
commitd67462639223159372371a24c41e87376c8b3569 (patch)
tree82ff7ef2b92f42001ce23386ece5bc76ae09b8b5
parent7a40cdbda0a171da223094208dd3c6e3eca13922 (diff)
downloadlua-d67462639223159372371a24c41e87376c8b3569.tar.gz
lua-d67462639223159372371a24c41e87376c8b3569.tar.bz2
lua-d67462639223159372371a24c41e87376c8b3569.zip
compatibility with '%' syntax is optional
-rw-r--r--lparser.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/lparser.c b/lparser.c
index fb98ebc8..68373d54 100644
--- a/lparser.c
+++ b/lparser.c
@@ -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;