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 9783f4d7d95f9847a9798e1ccf5f5b318f2a775b..7b1f94e0f16223e3ace87561049a8e541501a391 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 071f3a353962ee7d1205b4a095f5ffb4358ca974..b1d19e945d05d1bb20551aa2f3eb906fe4bd6f31 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