[Rcpp-commits] r2289 - pkg/Rcpp/R

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

Author: jmc
Date: 2010-10-07 23:10:58 +0200 (Thu, 07 Oct 2010)
New Revision: 2289

Modified:
   pkg/Rcpp/R/exceptions.R
Log:
dummy versions of rcpp_[sg]et_current_stack_trace to get through the unit tests

Modified: pkg/Rcpp/R/exceptions.R
===================================================================
--- pkg/Rcpp/R/exceptions.R	2010-10-07 21:10:04 UTC (rev 2288)
+++ pkg/Rcpp/R/exceptions.R	2010-10-07 21:10:58 UTC (rev 2289)
@@ -27,6 +27,11 @@
 	stop( condition )
 }
 
+## Dummy versions
+rcpp_get_current_stack_trace <- function() "DUMMY STACK TRACE"
+rcpp_set_current_stack_trace <- function(s) NULL
+
+
 # used by Rcpp::Evaluator
 setCurrentError <- function( condition = NULL) .Call( rcpp_set_current_error, condition )
 getCurrentError <- function() .Call( rcpp_get_current_error )