Always resume jump even if RCPP_PROTECTED_EVAL is not set

lionel- · lionel- · commit ecb5f3086f3d · 2018-06-02T01:15:26.000+02:00
A LongjumpException might be sent by another package called via cpp
interface
diff --git a/inst/include/Rcpp/exceptions.h b/inst/include/Rcpp/exceptions.h
@@ -149,7 +149,7 @@ namespace Rcpp {
                 token = getLongjumpToken(token);
             }
             ::R_ReleaseObject(token);
-#if (defined(RCPP_PROTECTED_EVAL) && defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0))
+#if (defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0))
             ::R_ContinueUnwind(token);
 #endif
             Rf_error("Internal error: Rcpp longjump failed to resume");

Original file line number	Diff line number	Diff line change
`@@ -149,7 +149,7 @@ namespace Rcpp {`
`149`	`149`	`token = getLongjumpToken(token);`
`150`	`150`	`}`
`151`	`151`	`::R_ReleaseObject(token);`
`152`		`-#if (defined(RCPP_PROTECTED_EVAL) && defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0))`
	`152`	`+#if (defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0))`
`153`	`153`	`::R_ContinueUnwind(token);`
`154`	`154`	`#endif`
`155`	`155`	`Rf_error("Internal error: Rcpp longjump failed to resume");`