From b3e46de18e9a1ffa5d0305b5eaf8e70d78b1d6e5 Mon Sep 17 00:00:00 2001
From: stepan <stepan.sindelar@oracle.com>
Date: Tue, 29 Nov 2016 17:20:57 +0100
Subject: [PATCH] RDeparse: 'correct' spacing around '/'
---
.../src/com/oracle/truffle/r/runtime/RDeparse.java | 2 +-
.../com/oracle/truffle/r/test/builtins/TestBuiltin_deparse.java | 2 ++
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java
index 9783f4d7d9..7b1f94e0f1 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java
@@ -153,7 +153,7 @@ public class RDeparse {
new Func("+", null, new PPInfo(PP.BINARY, PREC_SUM, false)),
new Func("-", null, new PPInfo(PP.BINARY, PREC_SUM, false)),
new Func("*", null, new PPInfo(PP.BINARY, PREC_PROD, false)),
- new Func("/", null, new PPInfo(PP.BINARY, PREC_PROD, false)),
+ new Func("/", null, new PPInfo(PP.BINARY2, PREC_PROD, false)),
new Func("^", null, new PPInfo(PP.BINARY2, PREC_POWER, false)),
new Func("%%", null, new PPInfo(PP.BINARY, PREC_PERCENT, false)),
new Func("%/%", null, new PPInfo(PP.BINARY, PREC_PERCENT, false)),
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_deparse.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_deparse.java
index 071f3a3539..b1d19e945d 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_deparse.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_deparse.java
@@ -303,6 +303,8 @@ public class TestBuiltin_deparse extends TestBase {
assertEval("unserialize(serialize(quote(a[a <- TRUE]), NULL))");
assertEval("{ x<-c(a=42, b=7); deparse(x) }");
+
+ assertEval("deparse(quote(1/0))");
}
@Test
--
GitLab