From 8569055841dfe84d1fa0f8e070e917309560caa4 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Sun, 26 Mar 2006 19:03:15 +0000 Subject: users/10087: no aliases for case of "in" in "case" --- Src/parse.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Src/parse.c') diff --git a/Src/parse.c b/Src/parse.c index 1a6146968..a45231d15 100644 --- a/Src/parse.c +++ b/Src/parse.c @@ -1023,6 +1023,7 @@ static void par_case(int *complex) { int oecused = ecused, brflag, p, pp, n = 1, type; + int ona, onc; p = ecadd(0); @@ -1033,14 +1034,23 @@ par_case(int *complex) ecstr(tokstr); incmdpos = 1; + ona = noaliases; + onc = nocorrect; + noaliases = nocorrect = 1; yylex(); while (tok == SEPER) yylex(); if (!(tok == STRING && !strcmp(tokstr, "in")) && tok != INBRACE) + { + noaliases = ona; + nocorrect = onc; YYERRORV(oecused); + } brflag = (tok == INBRACE); incasepat = 1; incmdpos = 0; + noaliases = ona; + nocorrect = onc; yylex(); for (;;) { -- cgit 1.4.1