correction to sugar function diff() as unearthed by package growcurves

eddelbuettel · eddelbuettel · commit a0dca19716b0 · 2013-09-23T02:43:39.000Z
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-22  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/include/Rcpp/sugar/functions/diff.h: Declare set_previous
+	const and add a missing traits:: prefix before is_na
+
 2013-09-21  Dirk Eddelbuettel  <edd@debian.org>
 
 	* vignettes/Rcpp-modules.Rnw: Remove vignette-local compilations
diff --git a/inst/include/Rcpp/sugar/functions/diff.h b/inst/include/Rcpp/sugar/functions/diff.h
@@ -56,9 +56,9 @@ class Diff : public Rcpp::VectorBase< RTYPE, LHS_NA , Diff<RTYPE,LHS_NA,LHS_T> >
         return res ;
 	}     
 	
-	inline void set_previous(int i, STORAGE value){
+	inline void set_previous(int i, STORAGE value) const {
 	    previous = value ;
-	    was_na = is_na<RTYPE>(previous) ;
+	    was_na = traits::is_na<RTYPE>(previous) ;
 	    previous_index = i ;
 	}
 	

Original file line number	Diff line number	Diff line change
`@@ -56,9 +56,9 @@ class Diff : public Rcpp::VectorBase< RTYPE, LHS_NA , Diff<RTYPE,LHS_NA,LHS_T> >`
`56`	`56`	`return res ;`
`57`	`57`	`}`
`58`	`58`
`59`		`- inline void set_previous(int i, STORAGE value){`
	`59`	`+ inline void set_previous(int i, STORAGE value) const {`
`60`	`60`	`previous = value ;`
`61`		`- was_na = is_na<RTYPE>(previous) ;`
	`61`	`+ was_na = traits::is_na<RTYPE>(previous) ;`
`62`	`62`	`previous_index = i ;`
`63`	`63`	`}`
`64`	`64`