From 3c524ae5ddf314e12351b393cc7ffc62aed78f8a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 26 Sep 2019 07:05:07 -0700 Subject: Use put_char for single character output. * hash.c (hash_print_op): Replace length 1 put_string calls with put_char. * lib.c (obj_print_impl): Likewise. --- lib.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index f0e92f2f..3e439437 100644 --- a/lib.c +++ b/lib.c @@ -11374,7 +11374,7 @@ val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx) put_string(lit(",*"), out); obj_print_impl(second(obj), out, pretty, ctx); } else if (sym == vector_lit_s && two_elem) { - put_string(lit("#"), out); + put_char(chr('#'), out); obj_print_impl(second(obj), out, pretty, ctx); } else if (sym == hash_lit_s) { put_string(lit("#H"), out); @@ -11399,13 +11399,13 @@ val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx) next = cdr(iter); obj_print_impl(car(iter), out, pretty, ctx); if (next) - put_string(lit("."), out); + put_char(chr('.'), out); iter = next; } } else if (sym == uref_s && simple_qref_args_p(cdr(obj), one)) { val iter; for (iter = cdr(obj); iter; iter = cdr(iter)) { - put_string(lit("."), out); + put_char(chr('.'), out); obj_print_impl(car(iter), out, pretty, ctx); } } else if (sym == quasi_s && consp(cdr(obj))) { -- cgit v1.2.3