Move longjump error to resumeJump()

Author: lionel-

inst/include/Rcpp/exceptions.h

@@ -152,6 +152,7 @@ namespace Rcpp {
 #if (defined(RCPP_PROTECTED_EVAL) && defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0))
             ::R_ContinueUnwind(token);
 #endif
+            Rf_error("Internal error: Rcpp longjump failed to resume");
         }
 
     } // namespace internal

inst/include/Rcpp/macros/macros.h

@@ -67,7 +67,6 @@
     }                                                                                            \
     if (rcpp_output_type == 3) {                                                                 \
         Rcpp::internal::resumeJump(rcpp_output_condition);                                       \
-        Rf_error("Internal error: Rcpp longjump failed to resume");                              \
     }
 #endif
 

src/attributes.cpp

@@ -2782,7 +2782,6 @@ namespace attributes {
                      << "    if (rcpp_isLongjump_gen) {" << std::endl
                                  // No need to unprotect before jump
                      << "        Rcpp::internal::resumeJump(rcpp_result_gen);" << std::endl
-                     << "        Rf_error(\"Internal error: Rcpp longjump failed to resume\");" << std::endl
                      << "    }" << std::endl
                      << "    Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, \"try-error\");"
                      << std::endl