From 2ba74d7f042bf806c6b0e5694ffba161de0ef97f Mon Sep 17 00:00:00 2001
From: Lukas Stadler <lukas.stadler@oracle.com>
Date: Mon, 9 Nov 2015 12:13:00 +0100
Subject: [PATCH] implement CallRFFIHelper.CADR
---
.../oracle/truffle/r/runtime/ffi/jnr/CallRFFIHelper.java | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/jnr/CallRFFIHelper.java b/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/jnr/CallRFFIHelper.java
index bfd974db7a..4d10be2c98 100644
--- a/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/jnr/CallRFFIHelper.java
+++ b/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/jnr/CallRFFIHelper.java
@@ -481,8 +481,10 @@ public class CallRFFIHelper {
return cdr;
}
- static Object CADR(@SuppressWarnings("unused") Object x) {
- throw unimplemented();
+ static Object CADR(Object e) {
+ guaranteeInstanceOf(e, RPairList.class);
+ Object cadr = ((RPairList) e).cadr();
+ return cadr;
}
static Object SETCAR(Object x, Object y) {
--
GitLab