lib: oversight, neglected struct literal printing.

* lib.c (obj_print_impl): print (sys:struct-lit ...)
syntax as #S(...).

1 files changed, 3 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index a34b16fa..ae78b147 100644
--- a/lib.c
+++ b/lib.c
@@ -12936,6 +12936,9 @@ val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx)
       } else if (sym == hash_lit_s) {
         put_string(lit("#H"), out);
         obj_print_impl(rest(obj), out, pretty, ctx);
+      } else if (sym == struct_lit_s) {
+        put_string(lit("#S"), out);
+        obj_print_impl(rest(obj), out, pretty, ctx);
       } else if (sym == json_s && have_args &&
                  consp(cdr(args)) && nilp(cddr(args)))
       {