added missing is<Language> and is<DottedPair>

Author: romainfrancois

ChangeLog

@@ -1,3 +1,8 @@
+2013-10-16 Romain Francois <romain@r-enthusiasts.com>
+
+        * include/Rcpp/api/meat/is.h : added missing implementation for 
+        is<Language> and is<DottedPair>
+
 2013-10-14 Romain Francois <romain@r-enthusiasts.com>
 
 	* inst/include/Rcpp/protection/protection.h: added Shield/Shelter/Armor

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

@@ -74,6 +74,12 @@ namespace internal{
     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 ;
     }