use const_cast when calling unwindProtect

qddyy · Dec 10, 2024 · c16317a · c16317a
1 parent 7e978fa
commit c16317a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pmt_interface.cpp b/src/pmt_interface.cpp
@@ -30,8 +30,8 @@ class StatFunc : public Function {
     template <typename... Args>
     auto _invoke(std::true_type, Args&&... args) const
     {
-        return [r_eval = [](void* expr) { return Rf_eval(*static_cast<SEXP*>(expr), R_GlobalEnv); }, r_call = RObject(Rf_lcons(Function(Function::operator()(std::forward<Args>(args)...)), Pairlist(std::forward<Args>(args)...)))](auto&&...) mutable {
-            return as<double>(unwindProtect(r_eval, static_cast<void*>(&r_call)));
+        return [r_eval = [](void* expr) { return Rf_eval(*static_cast<SEXP*>(expr), R_GlobalEnv); }, r_call = RObject(Rf_lcons(Function(Function::operator()(std::forward<Args>(args)...)), Pairlist(std::forward<Args>(args)...)))](auto&&...) {
+            return as<double>(unwindProtect(r_eval, static_cast<void*>(const_cast<RObject*>(&r_call))));
         };
     }
 };