The R Project SVN R

Rev

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

Rev 27074 Rev 27437
Line 1088... Line 1088...
1088 
static void args2buff(SEXP arglist, int lineb, int formals, LocalParseData *d)
 1088 
static void args2buff(SEXP arglist, int lineb, int formals, LocalParseData *d)
1089 
{
 1089 
{
1090 
    Rboolean lbreak = FALSE;
 1090 
    Rboolean lbreak = FALSE;
1091 
 
 1091 
 
1092 
    while (arglist != R_NilValue) {
 1092 
    while (arglist != R_NilValue) {
- 
 
 1093 
	if (TYPEOF(arglist) != LISTSXP && TYPEOF(arglist) != LANGSXP)
- 
 
 1094 
            error("badly formed function expression");
1093 
	if (TAG(arglist) != R_NilValue) {
 1095 
	if (TAG(arglist) != R_NilValue) {
1094 
#if 0
 1096 
#if 0
1095 
	    deparse2buff(TAG(arglist));
 1097 
	    deparse2buff(TAG(arglist));
1096 
#else
 1098 
#else
1097 
	    char tpb[120];
 1099 
	    char tpb[120];