[Rcpp-commits] r4574 - in pkg/Rcpp: . inst/include/Rcpp/api/meat

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

Author: romain
Date: 2013-10-16 11:57:44 +0200 (Wed, 16 Oct 2013)
New Revision: 4574

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/inst/include/Rcpp/api/meat/is.h
Log:
added missing is<Language> and is<DottedPair>

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2013-10-15 14:19:36 UTC (rev 4573)
+++ pkg/Rcpp/ChangeLog	2013-10-16 09:57:44 UTC (rev 4574)
@@ -1,3 +1,8 @@
+2013-10-16 Romain Francois <romain at r-enthusiasts.com>
+
+        * include/Rcpp/api/meat/is.h : added missing implementation for 
+        is<Language> and is<DottedPair>
+
 2013-10-14 Romain Francois <romain at r-enthusiasts.com>
 	
 	* inst/include/Rcpp/protection/protection.h: added Shield/Shelter/Armor

Modified: pkg/Rcpp/inst/include/Rcpp/api/meat/is.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/api/meat/is.h	2013-10-15 14:19:36 UTC (rev 4573)
+++ pkg/Rcpp/inst/include/Rcpp/api/meat/is.h	2013-10-16 09:57:44 UTC (rev 4574)
@@ -74,6 +74,12 @@
     template <> inline bool is__simple<LogicalVector>( SEXP x ){
         return TYPEOF(x) == LGLSXP ;
     }
+    template <> inline bool is__simple<Language>( SEXP x ){
+        return TYPEOF(x) == LANGSXP ;
+    }
+    template <> inline bool is__simple<DottedPair>( SEXP x ){
+        return TYPEOF(x) == LANGSXP || TYPEOF(x) == LISTSXP ;
+    }
     template <> inline bool is__simple<List>( SEXP x ){
         return TYPEOF(x) == VECSXP ;
     }