[Rcpp-commits] r4094 - in pkg/Rcpp: . inst/include src

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

Author: romain
Date: 2012-12-05 23:50:57 +0100 (Wed, 05 Dec 2012)
New Revision: 4094

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/inst/include/RcppCommon.h
   pkg/Rcpp/src/RcppCommon.cpp
Log:
clean unused

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2012-12-05 22:39:33 UTC (rev 4093)
+++ pkg/Rcpp/ChangeLog	2012-12-05 22:50:57 UTC (rev 4094)
@@ -12,6 +12,8 @@
         as and wrap. they are implemented later in the meat directory
         * include/Rcpp/api/meat/meat.h: directory containing implementations
         of templates using as and wrap
+        * include/RcppCommon.h: removed unused test_named
+        * src/RcppCommon.cpp: removed unused test_named
         
 2012-12-05  JJ Allaire <jj at rstudio.org>
 

Modified: pkg/Rcpp/inst/include/RcppCommon.h
===================================================================
--- pkg/Rcpp/inst/include/RcppCommon.h	2012-12-05 22:39:33 UTC (rev 4093)
+++ pkg/Rcpp/inst/include/RcppCommon.h	2012-12-05 22:50:57 UTC (rev 4094)
@@ -275,7 +275,7 @@
 RcppExport inline SEXP canUseCXX0X(){ return Rf_ScalarLogical( FALSE ); }
 #endif
 
-RcppExport SEXP test_named() ;
+
 RcppExport SEXP capabilities() ;
 
 const char * sexp_to_name(int sexp_type); 

Modified: pkg/Rcpp/src/RcppCommon.cpp
===================================================================
--- pkg/Rcpp/src/RcppCommon.cpp	2012-12-05 22:39:33 UTC (rev 4093)
+++ pkg/Rcpp/src/RcppCommon.cpp	2012-12-05 22:50:57 UTC (rev 4094)
@@ -79,17 +79,6 @@
 	return cap ;
 }
 
-
-/* this is mainly here so that variadic template errors show up 
-   at compile time */
-SEXP test_named(){
-#ifdef HAS_VARIADIC_TEMPLATES
-	return Rcpp::Language( "foobar", Rcpp::Named("foo", 2 ), 2, Rcpp::Named("bar", 10) ) ;
-#else
-	return R_NilValue ;
-#endif
-}
-
 const char * sexp_to_name(int sexp_type) {
     switch (sexp_type) {
     case NILSXP:	return "NILSXP";