[Rcpp-commits] r1671 - pkg/Rcpp/inst/include/Rcpp/internal

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

Author: romain
Date: 2010-06-23 15:40:40 +0200 (Wed, 23 Jun 2010)
New Revision: 1671

Modified:
   pkg/Rcpp/inst/include/Rcpp/internal/wrap.h
Log:
 duh

Modified: pkg/Rcpp/inst/include/Rcpp/internal/wrap.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/internal/wrap.h	2010-06-23 13:38:34 UTC (rev 1670)
+++ pkg/Rcpp/inst/include/Rcpp/internal/wrap.h	2010-06-23 13:40:40 UTC (rev 1671)
@@ -57,8 +57,7 @@
 		caster< T, typename ::Rcpp::traits::storage_type<RTYPE>::type >
 		) ; 
 	UNPROTECT(1) ;
-	// return wrap_extra_steps<T>( x ) ;
-	return x ;
+	return wrap_extra_steps<T>( x ) ;
 }
 
 /**
@@ -76,7 +75,7 @@
 	SEXP x = PROTECT( Rf_allocVector( RTYPE, size ) );
 	std::copy( first, last, r_vector_start<RTYPE, typename ::Rcpp::traits::storage_type<RTYPE>::type >(x) ) ; 
 	UNPROTECT(1) ;
-	return x ;
+	return wrap_extra_steps<T>( x ) ;
 }
 
 
@@ -160,7 +159,7 @@
 	}
 	::Rf_setAttrib( x, R_NamesSymbol, names ) ;
 	UNPROTECT(2) ; /* x, names */
-	return x ;
+	return wrap_extra_steps<T>( x ) ;
 }
 
 /** 
@@ -189,7 +188,7 @@
 	}
 	::Rf_setAttrib( x, R_NamesSymbol, names ) ;
 	UNPROTECT(2) ; /* x, names */
-	return x ;
+	return wrap_extra_steps<T>( x ) ;
 }