From 5861192436b31f7377bd82cacb7acc8cc8baf4f9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 23 Mar 2023 01:08:30 -0700
Subject: printer: print tree as #T(...) beyond max depth.

* lib.c (obj_print_impl): For consistenfcy with other
aggregates---lists, vectors and hashes---when the maximum
depth has been exceeded we should likewise print binary
search tree objects as #T(...).
---
 lib.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib.c b/lib.c
index d17e416f..e995fcf0 100644
--- a/lib.c
+++ b/lib.c
@@ -14211,6 +14211,9 @@ val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx)
         } else if (structp(obj)) {
           put_string(lit("#S(...)"), out);
           return obj;
+        } else if (treep(obj)) {
+          put_string(lit("#T(...)"), out);
+          return obj;
         }
       default:
         break;
-- 
cgit v1.2.3