trying something else

romainfrancois · romainfrancois · commit fad3e6278010 · 2013-11-14T11:16:18.000+01:00
diff --git a/inst/include/Rcpp/internal/wrap.h b/inst/include/Rcpp/internal/wrap.h
@@ -921,8 +921,7 @@ inline SEXP module_wrap<SEXP>( const SEXP& obj ){
 }
 
 inline SEXP wrap(const char* const v ){ 
-	Rprintf( "wrap(const char* const v = <%p>)\n", v ) ;
-	if (v && v != NULL)
+	if (v != NULL)
 		return Rf_mkString(v) ;
 	else 	
 		return R_NilValue;

Original file line number	Diff line number	Diff line change
`@@ -921,8 +921,7 @@ inline SEXP module_wrap<SEXP>( const SEXP& obj ){`
`921`	`921`	`}`
`922`	`922`
`923`	`923`	`inline SEXP wrap(const char* const v ){`
`924`		`- Rprintf( "wrap(const char* const v = <%p>)\n", v ) ;`
`925`		`- if (v && v != NULL)`
	`924`	`+ if (v != NULL)`
`926`	`925`	`return Rf_mkString(v) ;`
`927`	`926`	`else`
`928`	`927`	`return R_NilValue;`