improved StatFunc<true>::operator()

qddyy · Dec 10, 2024 · f38fbe9 · f38fbe9
1 parent 7e978fa
commit f38fbe9
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(RObject(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))));
         };
     }
 };