Use placeholder for .Call to avoid warning

Author: jjallaire

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

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])