The R Project SVN R

Rev

Rev 46988 | Rev 47460 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 46988 Rev 47366
Line 797... Line 797...
797 
#ifdef CHECK_EXTERNAL_ARG_COUNT         /* Off by default. */
 797 
#ifdef CHECK_EXTERNAL_ARG_COUNT         /* Off by default. */
798 
    if(symbol.symbol.external && symbol.symbol.external->numArgs > -1) {
 798 
    if(symbol.symbol.external && symbol.symbol.external->numArgs > -1) {
799 
	if(symbol.symbol.external->numArgs != length(args))
 799 
	if(symbol.symbol.external->numArgs != length(args))
800 
	    errorcall(call,
 800 
	    errorcall(call,
801 
		      _("Incorrect number of arguments (%d), expecting %d for %s"),
 801 
		      _("Incorrect number of arguments (%d), expecting %d for %s"),
802 
		      length(args), symbol.symbol.external->numArgs,
 802 
		      length(args), symbol.symbol.external->numArgs, buf);
803 
		      translateChar(STRING_ELT(CAR(args), 0)));
 - 
 
804 
    }
 803 
    }
805 
#endif
 804 
#endif
806 
 
 805 
 
807 
    retval = (SEXP)fun(args);
 806 
    retval = (SEXP)fun(args);
808 
    vmaxset(vmax);
 807 
    vmaxset(vmax);
Line 840... Line 839...
840 
    }
 839 
    }
841 
    if(symbol.symbol.call && symbol.symbol.call->numArgs > -1) {
 840 
    if(symbol.symbol.call && symbol.symbol.call->numArgs > -1) {
842 
	if(symbol.symbol.call->numArgs != nargs)
 841 
	if(symbol.symbol.call->numArgs != nargs)
843 
	    errorcall(call,
 842 
	    errorcall(call,
844 
		      _("Incorrect number of arguments (%d), expecting %d for %s"),
 843 
		      _("Incorrect number of arguments (%d), expecting %d for %s"),
845 
		      nargs, symbol.symbol.call->numArgs,
 844 
		      nargs, symbol.symbol.call->numArgs, buf);
846 
		      translateChar(STRING_ELT(nm, 0)));
 - 
 
847 
    }
 845 
    }
848 
 
 846 
 
849 
    retval = R_NilValue;	/* -Wall */
 847 
    retval = R_NilValue;	/* -Wall */
850 
    fun = (VarFun) ofun;
 848 
    fun = (VarFun) ofun;
851 
    switch (nargs) {
 849 
    switch (nargs) {