[Rcpp-commits] r587 - pkg/src

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

Author: romain
Date: 2010-02-05 19:15:07 +0100 (Fri, 05 Feb 2010)
New Revision: 587

Modified:
   pkg/src/Function.cpp
Log:
stack imbalance fix

Modified: pkg/src/Function.cpp
===================================================================
--- pkg/src/Function.cpp	2010-02-05 17:42:34 UTC (rev 586)
+++ pkg/src/Function.cpp	2010-02-05 18:15:07 UTC (rev 587)
@@ -45,6 +45,7 @@
 	Function::Function(const std::string& name) throw(no_such_function) : RObject() {
 		SEXP x = PROTECT( Rf_findFun( Rf_install(name.c_str()), R_GlobalEnv ) ) ;
 		setSEXP( x ) ;
+		UNPROTECT(1) ;
 	}
 	
 	Function::~Function(){}