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(...).

1 files changed, 3 insertions, 0 deletions

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;