Print (rcons x y) forms as x..y.

* lib.c (obj_print_impl): Handle rcons in same place
as other special syntax like sys:expr and quote.

1 files changed, 6 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 80ec19b5..4ce7cbac 100644
--- a/lib.c
+++ b/lib.c
@@ -7685,6 +7685,12 @@ val obj_print_impl(val obj, val out, val pretty)
       } else if (sym == expr_s) {
         put_char(chr('@'), out);
         obj_print_impl(rest(obj), out, pretty);
+      } else if (sym == rcons_s && consp(cdr(obj))
+                 && consp(cddr(obj)) && !(cdddr(obj)))
+      {
+        obj_print_impl(second(obj), out, pretty);
+        put_string(lit(".."), out);
+        obj_print_impl(third(obj), out, pretty);
       } else {
         val iter;
         val closepar = chr(')');