From 57c9049794f108fe7ba593a5ed29511bdeb8314c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 3 Jun 2021 07:57:14 -0700 Subject: lib: oversight, neglected struct literal printing. * lib.c (obj_print_impl): print (sys:struct-lit ...) syntax as #S(...). --- lib.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib.c') 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))) { -- cgit v1.2.3