Fix issue preventing packages with Rcpp::interfaces attribute from compiling.

Author: jjallaire

ChangeLog

@@ -1,3 +1,8 @@
+2014-02-16  JJ Allaire <[email protected]>
+
+        * src/attributes.cpp Replace (incorrect) call to 
+        Rcpp::internal::jumpToTop with Rf_onintr
+
 2014-02-07  Kevin Ushey  <[email protected]>
 
 	* inst/include/Rcpp/Reference.h: Add default ctor

inst/NEWS.Rd

@@ -16,6 +16,11 @@
       depending on IndexHash (unique, sort_unique, match) will now properly
       handle NA and NaN values for numeric vectors.
     }
+    \item Changes in Rcpp Attributes
+      \itemize{
+        \item Fix issue preventing packages with Rcpp::interfaces attribute
+      from compiling.
+      }
   }
 }
 

src/attributes.cpp

@@ -2229,7 +2229,7 @@ namespace attributes {
                      << std::endl
                      << "    if (__isInterrupt) {" << std::endl
                      << "        UNPROTECT(1);" << std::endl
-                     << "        Rcpp::internal::jumpToTop();" << std::endl
+                     << "        Rf_onintr();" << std::endl
                      << "    }" << std::endl
                      << "    Rboolean __isError = Rf_inherits(__result, \"try-error\");"
                      << std::endl