[Rcpp-commits] r3468 - in pkg/Rcpp: . R

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

Author: romain
Date: 2012-02-06 16:50:32 +0100 (Mon, 06 Feb 2012)
New Revision: 3468

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/R/exceptions.R
Log:
one less .Internal call

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2012-02-05 16:45:55 UTC (rev 3467)
+++ pkg/Rcpp/ChangeLog	2012-02-06 15:50:32 UTC (rev 3468)
@@ -1,3 +1,7 @@
+2012-02-06  Romain Francois  <romain at r-enthusiasts.com>
+
+        * R/tools.R: one less .Internal call
+
 2012-02-03  Dirk Eddelbuettel  <edd at debian.org>
 
         * DESCRIPTION: Release 0.9.10

Modified: pkg/Rcpp/R/exceptions.R
===================================================================
--- pkg/Rcpp/R/exceptions.R	2012-02-05 16:45:55 UTC (rev 3467)
+++ pkg/Rcpp/R/exceptions.R	2012-02-06 15:50:32 UTC (rev 3468)
@@ -66,7 +66,7 @@
 	    # a simple error; message is stored internally
 	    # and call is in result; this defers all allocs until
 	    # after the jump
-	    msg <- .Internal(geterrmessage())
+	    msg <- geterrmessage()
 	    call <- value[[2L]]
 	    cond <- simpleError(msg, call)
 	}