don't use 'CDDDR'

Author: kevinushey

ChangeLog

@@ -1,3 +1,7 @@
+2015-07-21  Kevin Ushey  <[email protected]>
+
+        * inst/include/Rcpp/api/meat/Rcpp_eval.h: don't use 'CDDDR'
+
 2015-07-20  Dirk Eddelbuettel  <[email protected]>
 
         * DESCRIPTION: Rolled minor Date and Version

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

@@ -51,7 +51,7 @@ inline SEXP Rcpp_eval(SEXP expr, SEXP env) {
         identity
     ));
     SET_TAG(CDDR(call), ::Rf_install("error"));
-    SET_TAG(CDDDR(call), ::Rf_install("interrupt"));
+    SET_TAG(CDDR(CDR(call)), ::Rf_install("interrupt"));
 
     // execute the call
     Shield<SEXP> res(::Rf_eval(call, R_GlobalEnv));