reset error after evaluation

Author: kevinushey

ChangeLog

@@ -1,5 +1,6 @@
 2015-06-25  Kevin Ushey  <[email protected]>
 
+	* inst/include/Rcpp/api/meat/Rcpp_eval.h: reset error after Rcpp_eval
         * inst/include/Rcpp/Function.h: catch empty error messages
         * inst/include/Rcpp/api/meat/Rcpp_eval.h: protect call
 

inst/include/Rcpp/api/meat/Rcpp_eval.h

@@ -38,8 +38,6 @@ namespace Rcpp{
 
         Shield<SEXP> expr(evalCall->expr) ;
 
-        reset_current_error() ;
-
         Environment RCPP = Environment::Rcpp_namespace();
         SEXP withCallingHandlersSym    = ::Rf_install("withCallingHandlers");
         SEXP tryCatchSym               = ::Rf_install("tryCatch");
@@ -87,6 +85,9 @@ namespace Rcpp{
             evalCall->error_occurred = false;
             evalCall->result = res;
         }
+        
+        reset_current_error() ;
+
     }
 
     inline SEXP Rcpp_eval(SEXP expr_, SEXP env) {