fix: remove unintended & in warnings (#766)

Close #766.

Author: tueda

check/fixes.frm

@@ -4437,6 +4437,14 @@ assert result("testCF1") =~ expr("putfirst_(f,2,mu1)*putfirst_(e,2,mu1)*putfirst
 assert result("testCF2") =~ expr("d(mu2,mu1)*e(mu2,mu1)*f(mu2,mu1)")
 assert result("testCF3") =~ expr("d(mu2,mu1,mu3)*e(mu2,mu1,mu3)*f(mu2,mu1,mu3)")
 *--#] Issue750 :
+*--#[ Issue766 :
+* Unintended "&" in some warning messages
+CF f(s,s);
+ModuleOption local,$a;
+.end
+assert warning?("Excess information in symmetric properties")
+assert warning?("Undefined $-variable")
+*--#] Issue766 : 
 *--#[ PullReq535 :
 * This test requires more than the specified 50K workspace.
 #:maxtermsize 200

sources/module.c

@@ -672,7 +672,7 @@ UBYTE * DoModDollar(UBYTE *s, int type)
 			number = GetDollar(name);
 			if ( number < 0 ) {
 				number = AddDollar(s,0,0,0);
-				Warning("&Undefined $-variable in module statement");
+				Warning("Undefined $-variable in module statement");
 			}
 			md = (MODOPTDOLLAR *)FromList(&AC.ModOptDolList);
 			md->number = number;

sources/names.c

@@ -1526,7 +1526,7 @@ illegsym:		*s = cc;
 			else goto illegsym;
 			*s = cc;
 			if ( *s != ')' || ( s[1] && s[1] != ',' && s[1] != '<' ) ) {
-				Warning("&Excess information in symmetric properties currently ignored");
+				Warning("Excess information in symmetric properties currently ignored");
 				s = SkipField(s,1);
 			}
 			else s++;
@@ -1547,7 +1547,7 @@ retry:;
 				if ( ( StrICont(par,(UBYTE *)"arguments") == 0 )
 				|| ( StrICont(par,(UBYTE *)"args") == 0 ) ) {}
 				else {
-					Warning("&Illegal information in number of arguments properties currently ignored");
+					Warning("Illegal information in number of arguments properties currently ignored");
 					error = 1;
 				}
 				*s = cc;
@@ -1571,7 +1571,7 @@ retry:;
 				if ( ( StrICont(par,(UBYTE *)"arguments") == 0 )
 				|| ( StrICont(par,(UBYTE *)"args") == 0 ) ) {}
 				else {
-					Warning("&Illegal information in number of arguments properties currently ignored");
+					Warning("Illegal information in number of arguments properties currently ignored");
 					error = 1;
 				}
 				*s = cc;