[Rcpp-commits] r4339 - in pkg/Rcpp: . src

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Thu Jun 13 10:49:13 CEST 2013


Author: romain
Date: 2013-06-13 10:49:13 +0200 (Thu, 13 Jun 2013)
New Revision: 4339

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/src/Module.cpp
Log:
typo (reported on Rcpp-devel)

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2013-06-12 18:42:39 UTC (rev 4338)
+++ pkg/Rcpp/ChangeLog	2013-06-13 08:49:13 UTC (rev 4339)
@@ -1,3 +1,7 @@
+2013-06-13  Romain Francois <romain at r-enthusiasts.com>
+
+	* src/Module.cpp: small buglet in macro. Reported on Rcpp-devel
+
 2013-06-12  Dirk Eddelbuettel  <edd at debian.org>
 
 	* inst/doc/Makefile: Force serial build of vignettes in yet another

Modified: pkg/Rcpp/src/Module.cpp
===================================================================
--- pkg/Rcpp/src/Module.cpp	2013-06-12 18:42:39 UTC (rev 4338)
+++ pkg/Rcpp/src/Module.cpp	2013-06-13 08:49:13 UTC (rev 4339)
@@ -2,7 +2,7 @@
 //
 // Module.cpp: Rcpp R/C++ interface class library -- Rcpp modules
 //
-// Copyright (C) 2010 - 2012 Dirk Eddelbuettel and Romain Francois
+// Copyright (C) 2010 - 2013 Dirk Eddelbuettel and Romain Francois
 //
 // This file is part of Rcpp.
 //
@@ -28,7 +28,7 @@
 SEXP __CARGS__[MAX_ARGS] ;                       \
 int nargs = 0 ;                                  \
 for(; nargs<MAX_ARGS; nargs++){                  \
-	if( p == R_NilValue ) break ;                \
+	if( __P__ == R_NilValue ) break ;            \
 	__CARGS__[nargs] = CAR(__P__) ;              \
 	__P__ = CDR(__P__) ;                         \
 }



More information about the Rcpp-commits mailing list