Function testUnwindProtectFunctionObject

inst/tinytest/cpp/stack.cpp:93–98

[[Rcpp::export]]

// [[Rcpp::export]]
SEXP testUnwindProtectFunctionObject(Environment indicator, bool fail) {
    unwindIndicator my_data(indicator);
    SEXP out = R_NilValue;
    out = Rcpp::unwindProtect(FunctionObj(10, fail));
    return out;
}