fixes to preprocessor part

lang/cem/cemcom/scan.c

@@ -67,10 +67,11 @@ getactuals(idef)
 		*/
 		lexwarning("argument mismatch, %s", idef->id_text);
 
-		while (++nr_of_params < acnt) {
+		while (nr_of_params < acnt) {
 			/*	too few paraeters: remaining actuals are ""
 			*/
 			actparams[nr_of_params] = "";
+			nr_of_params++;
 		}
 	}
 
@@ -113,16 +114,19 @@ copyact(ch1, ch2, level)
 
 		switch(ch)	{
 
+#ifdef __MATCHING_PAR__
 		case ')':
 		case '}':
 		case ']':
 			lexerror("unbalanced parenthesis");
 			break;
+#endif __MATCHING_PAR__
 
 		case '(':
 			copyact('(', ')', level+1);
 			break;
 
+#ifdef __MATCHING_PAR__
 		case '{':
 			/*	example:
 					#define declare(v, t)	t v
@@ -134,6 +138,7 @@ copyact(ch1, ch2, level)
 		case '[':
 			copyact('[', ']', level+1);
 			break;
+#endif __MATCHING_PAR__
 
 		case '\n':
 			while (LoadChar(ch), ch == '#')	{