From e3d91f4e1256134620e0b9ab590689a643ad0430 Mon Sep 17 00:00:00 2001
From: Mick Jordan <mick.jordan@oracle.com>
Date: Wed, 16 Dec 2015 16:06:19 -0800
Subject: [PATCH] fix for AsFunction
---
.../src/com/oracle/truffle/r/nodes/builtin/base/AsFunction.java | 2 ++
1 file changed, 2 insertions(+)
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsFunction.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsFunction.java
index a50a499761..fdeeda8416 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsFunction.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsFunction.java
@@ -77,6 +77,8 @@ public abstract class AsFunction extends RBuiltinNode {
defaultValue = null;
} else if (arg == RNull.instance) {
defaultValue = ConstantNode.create(RNull.instance);
+ } else if (arg instanceof RLanguage && ((RLanguage) arg).getRep() instanceof ConstantNode) {
+ defaultValue = (ConstantNode) ((RLanguage) arg).getRep();
} else {
throw RInternalError.unimplemented();
}
--
GitLab