| 105 | if (x != R_NilValue) R_ReleaseObject(x); |
| 106 | } |
| 107 | inline SEXP Rcpp_ReplaceObject(SEXP x, SEXP y) { |
| 108 | // if we are setting to the same SEXP as we already have, do nothing |
| 109 | if (x != y) { |
| 110 | Rcpp_ReleaseObject(x); |
| 111 | Rcpp_PreserveObject(y); |
| 112 | } |
| 113 | return y; |
| 114 | } |
| 115 | // end deprecated interface not using precious list |
| 116 | |
| 117 | // new preferred interface using token-based precious list |
nothing calls this directly
no test coverage detected