[Rcpp-commits] r4036 - pkg/Rcpp/src

[noreply at r-forge.r-project.org]

Author: jjallaire
Date: 2012-11-25 14:01:30 +0100 (Sun, 25 Nov 2012)
New Revision: 4036

Modified:
   pkg/Rcpp/src/Module.cpp
Log:
BEGIN_RCPP/END_RCPP in InternalFunction_invoke

Modified: pkg/Rcpp/src/Module.cpp
===================================================================
--- pkg/Rcpp/src/Module.cpp	2012-11-25 11:32:18 UTC (rev 4035)
+++ pkg/Rcpp/src/Module.cpp	2012-11-25 13:01:30 UTC (rev 4036)
@@ -114,6 +114,7 @@
 
 // .External functions
 extern "C" SEXP InternalFunction_invoke( SEXP args ){
+BEGIN_RCPP
 	SEXP p = CDR(args) ;
 	XP_Function fun( CAR(p) ) ; p = CDR(p) ;
 	
@@ -125,6 +126,7 @@
    		p = CDR(p) ;
    	}
    	return fun->operator()( cargs ) ;
+END_RCPP
 }
 
 extern "C" SEXP Module__invoke( SEXP args){