The R Project SVN R

Rev

Rev 89523 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89523 Rev 90283
Line 274... Line 274...
274 
			    errorcall(call,
 274 
			    errorcall(call,
275 
				_("formal argument \"%s\" matched by multiple actual arguments"),
 275 
				_("formal argument \"%s\" matched by multiple actual arguments"),
276 
				CHAR(PRINTNAME(TAG(f))));
 276 
				CHAR(PRINTNAME(TAG(f))));
277 
			if (R_warn_partial_match_args) {
 277 
			if (R_warn_partial_match_args) {
278 
			    SEXP cond =
 278 
			    SEXP cond =
279 
				R_makePartialMatchWarningCondition(call,
 279 
				R_makePartialArgumentMatchWarningCondition(call,
280 
								   TAG(b),
 280 
									   TAG(b),
281 
								   TAG(f));
 281 
									   TAG(f));
282 
			    PROTECT(cond);
 282 
			    PROTECT(cond);
283 
			    R_signalWarningCondition(cond);
 283 
			    R_signalWarningCondition(cond);
284 
			    UNPROTECT(1);
 284 
			    UNPROTECT(1);
285 
			}
 285 
			}
286 
			SETCAR(a, CAR(b));
 286 
			SETCAR(a, CAR(b));