The R Project SVN R

(root)/trunk/src/main/errors.c @ 28362 – Rev 26352 → 26353



		PROTECT(hcall);
		eval(hcall, R_GlobalEnv);
		UNPROTECT(1);
	    }
	}
	else gotoExitingHandler(cond, ecall, entry);
    }
    R_HandlerStack = oldstack;
    UNPROTECT(1);
    return R_NilValue;
}

Rev 26352	Rev 26353
Line 1116...	Line 1116...
1116	`PROTECT(hcall);`	1116	`PROTECT(hcall);`
1117	`eval(hcall, R_GlobalEnv);`	1117	`eval(hcall, R_GlobalEnv);`
1118	`UNPROTECT(1);`	1118	`UNPROTECT(1);`
1119	`}`	1119	`}`
1120	`}`	1120	`}`
1121	`else gotoExitingHandler(cond, call, entry);`	1121	`else gotoExitingHandler(cond, ecall, entry);`
1122	`}`	1122	`}`
1123	`R_HandlerStack = oldstack;`	1123	`R_HandlerStack = oldstack;`
1124	`UNPROTECT(1);`	1124	`UNPROTECT(1);`
1125	`return R_NilValue;`	1125	`return R_NilValue;`
1126	`}`	1126	`}`