Functions are now shareable and, as such, must be properly transitioned when passed as arguments.

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/WrapArgumentBaseNode.java

@@ -73,6 +73,9 @@ public abstract class WrapArgumentBaseNode extends RNode {
         } else if (result instanceof RLanguage) {
             everSeenLanguage.enter();
             return (RLanguage) result;
+        } else if (result instanceof RFunction) {
+            everSeenLanguage.enter();
+            return (RFunction) result;
         } else {
             nonShareable.enter();
             return null;

com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleAttributes.java

@@ -44,6 +44,8 @@ public class TestSimpleAttributes extends TestBase {
         assertEval("{ attributes(NULL) }");
 
         assertEval("{ x<-function() 42; attr(x, \"foo\")<-\"foo\"; y<-x; attr(y, \"foo\")<-NULL; x }");
+
+        assertEval("{ f<-function(y) attr(y, \"foo\")<-NULL; x<-function() 42; attr(x, \"foo\")<-\"foo\"; s<-\"bar\"; switch(s, f(x)); x }");
     }
 
     @Test