667 			mac->arity = 0;  in ppcontrol()
684 						if (mac->arity < MAXFORMALS)  in ppcontrol()
686 							if (mac->arity) p++;  in ppcontrol()
687 							formargs[mac->arity] = p;  in ppcontrol()
689 							formvals[mac->arity++] = p1 = p;  in ppcontrol()
690 							if (mac->arity == 1) *p++ = ' ';  in ppcontrol()
719 									if (p > formvals[mac->arity - 1] && *(p - 1) == ' ') *--p = 0;  in ppcontrol()
726 									if (p > formvals[mac->arity - 1] && *(p - 1) == ' ') *--p = 0;  in ppcontrol()
731 								if (p > formvals[mac->arity - 1] && *(p - 1) == ' ') continue;  in ppcontrol()
738 								for (n = 0; n < mac->arity; n++)  in ppcontrol()
791 						if (mac->arity < MAXFORMALS)  in ppcontrol()
793 							for (n = 0; n < mac->arity; n++)  in ppcontrol()
796 							formargs[mac->arity++] = p;  in ppcontrol()
824 					if (mac->arity && (s = newof(mac->formals, char, p - mac->formals, 0)) != mac->formals)  in ppcontrol()
827 						for (n = 0; n < mac->arity; n++)  in ppcontrol()
832 				if (!mac->arity)  in ppcontrol()
853 						mac->arity = 0;  in ppcontrol()
897 					for (c = 0; c < mac->arity; c++)  in ppcontrol()
965 					if (c != T_ID) c = mac->arity;  in ppcontrol()
966 					else for (c = 0; c < mac->arity; c++)  in ppcontrol()
969 					if (c >= mac->arity)  in ppcontrol()
1060 				for (c = 0; c < mac->arity; c++)  in ppcontrol()
1173 			if (!mac->arity) /* ok */;  in ppcontrol()
1178 				s = (char*)&mac->formkeys[mac->arity];  in ppcontrol()
1181 				for (n = 0; n < mac->arity; n++)  in ppcontrol()
1189 			for (n = 1; n < mac->arity; n++)  in ppcontrol()
1193 …if ((i0 & SYM_FUNCTION) != (sym->flags & SYM_FUNCTION) || old.arity != mac->arity || !streq(old.va…  in ppcontrol()
1203 						for (n = 0; n < mac->arity; n++)  in ppcontrol()
1295 …, n2, mac ? error_info.line - n2 + 1 : REF_UNDEF, mac ? strsum(mac->value, (long)mac->arity) : 0L);  in ppcontrol()
1419 			mac->arity = 0;  in ppcontrol()