From 73368784f2c3d69a0fbc227420550b4b1e05d4ea Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 10 Nov 2015 18:57:38 -0800
Subject: 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.
---
 lib.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib.c')

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(')');
-- 
cgit v1.2.3