Use placeholder for .Call to avoid warning

jjallaire · jjallaire · commit 3e2205f30ea0 · 2014-02-02T05:18:48.000-05:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2014-02-02  JJ Allaire  <jj@rstudio.org>
+
+        * R/Attributes.R: Use placeholder for .Call to avoid warning
+
 2014-02-01  Dirk Eddelbuettel  <edd@debian.org>
 
 	* tests/doRUnit.R: Simplified following pattern in RProtoBuf
diff --git a/R/Attributes.R b/R/Attributes.R
@@ -412,7 +412,7 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
 
     args <- names(formals(func))
 
-    body <- quote( .Call( EXTERNALNAME, ARG ) )[ c(1:2, rep(3, length(args))) ]
+    body <- quote( CALL_PLACEHOLDER ( EXTERNALNAME, ARG ) )[ c(1:2, rep(3, length(args))) ]
 
     for (i in seq(along = args))
         body[[i+2]] <- as.symbol(args[i])

-Original file line number
+Diff line change
@@ @@ -1,3 +1,7 @@ @@
 +2014-02-02  JJ Allaire  <[email protected]>
++
 +        * R/Attributes.R: Use placeholder for .Call to avoid warning
++
 -02-01  Dirk Eddelbuettel  <[email protected]>
 	* tests/doRUnit.R: Simplified following pattern in RProtoBuf