From e6e93749bd0d7357f8f8031733616c3585ef758d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 17 Jul 2023 20:28:13 -0700
Subject: printer: print (sys:vector-list ()) as #() not #nil.

* lib.c (obj_print_impl): Check for this case and handle.
The #nil syntax is not readable.
---
 lib.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib.c b/lib.c
index 8ba7cd3c..cf887d4e 100644
--- a/lib.c
+++ b/lib.c
@@ -14591,7 +14591,10 @@ val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx)
         obj_print_impl(arg, out, pretty, ctx);
       } else if (sym == vector_lit_s && two_elem) {
         put_char(chr('#'), out);
-        obj_print_impl(arg, out, pretty, ctx);
+        if (!arg)
+          put_string(lit("()"), out);
+        else
+          obj_print_impl(arg, out, pretty, ctx);
       } else if (sym == hash_lit_s) {
         put_string(lit("#H"), out);
         if (!args)
-- 
cgit v1.2.3