The R Project SVN – R – Diff – /trunk/src/main/errors.c



			       CHAR(PRINTNAME(argument)),//EncodeChar??
			       CHAR(PRINTNAME(formal)));//EncodeChar??
    PROTECT(cond);
    R_setConditionField(cond, 2, "argument", argument);
    R_setConditionField(cond, 3, "formal", formal);
    // ideally we would want the function/object in a field also
    UNPROTECT(1); /* cond */
    return cond;
}
 
 

Rev 90254	Rev 90280
Line 3027...	Line 3027...
3027	`CHAR(PRINTNAME(argument)),//EncodeChar??`	3027	`CHAR(PRINTNAME(argument)),//EncodeChar??`
3028	`CHAR(PRINTNAME(formal)));//EncodeChar??`	3028	`CHAR(PRINTNAME(formal)));//EncodeChar??`
3029	`PROTECT(cond);`	3029	`PROTECT(cond);`
3030	`R_setConditionField(cond, 2, "argument", argument);`	3030	`R_setConditionField(cond, 2, "argument", argument);`
3031	`R_setConditionField(cond, 3, "formal", formal);`	3031	`R_setConditionField(cond, 3, "formal", formal);`
3032	`// idealy we would want the function/object in a field also`	3032	`// ideally we would want the function/object in a field also`
3033	`UNPROTECT(1); /* cond */`	3033	`UNPROTECT(1); /* cond */`
3034	`return cond;`	3034	`return cond;`
3035	`}`	3035	`}`
3036		3036
3037		3037

The R Project SVN R

(root)/trunk/src/main/errors.c @ 28362 – Rev 90254 → 90280