| 32 | |
| 33 | template <typename T> |
| 34 | inline SEXP module_wrap_dispatch( const T& obj, Rcpp::traits::normal_wrap_tag ){ |
| 35 | return wrap( obj ) ; |
| 36 | } |
| 37 | template <typename T> |
| 38 | inline SEXP module_wrap_dispatch( const T& obj, Rcpp::traits::pointer_wrap_tag ) { |
| 39 | return wrap( object< typename traits::un_pointer<T>::type >( obj ) ) ; |