The R Project SVN R

(root)/branches/tools4pkgs/src/main/dotcode.c @ 77458 – Rev 68947 → 69108



	    default:
		break;
	    }
	    if (s != arg) {
		PROTECT(s);
		SHALLOW_DUPLICATE_ATTRIB(s, arg);
		SET_VECTOR_ELT(ans, na, s);
		UNPROTECT(1);
	    }
	}
    }

Rev 68947	Rev 69108
Line 2470...	Line 2470...
2470	`default:`	2470	`default:`
2471	`break;`	2471	`break;`
2472	`}`	2472	`}`
2473	`if (s != arg) {`	2473	`if (s != arg) {`
2474	`PROTECT(s);`	2474	`PROTECT(s);`
2475	`DUPLICATE_ATTRIB(s, arg);`	2475	`SHALLOW_DUPLICATE_ATTRIB(s, arg);`
2476	`SET_VECTOR_ELT(ans, na, s);`	2476	`SET_VECTOR_ELT(ans, na, s);`
2477	`UNPROTECT(1);`	2477	`UNPROTECT(1);`
2478	`}`	2478	`}`
2479	`}`	2479	`}`
2480	`}`	2480	`}`