The R Project SVN R

Rev

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

Rev 40711 Rev 41002
Line 2361... Line 2361...
2361 
		if (TRACE(CAR(pargs)) && dup){
 2361 
		if (TRACE(CAR(pargs)) && dup){
2362 
			memtrace_report(cargs[nargs], s);
 2362 
			memtrace_report(cargs[nargs], s);
2363 
			SET_TRACE(s, 1);
 2363 
			SET_TRACE(s, 1);
2364 
		}
 2364 
		}
2365 
#endif
2365 
#endif
2366 
		SET_ATTRIB(s, duplicate(ATTRIB(CAR(pargs))));
 - 
 
2367 
		SET_OBJECT(s, OBJECT(CAR(pargs)));
 2366 
		DUPLICATE_ATTRIB(s, CAR(pargs));
2368 
	    }
 2367 
	    }
2369 
	    if (TAG(pargs) != R_NilValue)
 2368 
	    if (TAG(pargs) != R_NilValue)
2370 
		havenames = 1;
 2369 
		havenames = 1;
2371 
	    SET_VECTOR_ELT(ans, nargs, s);
 2370 
	    SET_VECTOR_ELT(ans, nargs, s);
2372 
	    nargs++;
 2371 
	    nargs++;