From 5f0bc4ab8ee0fcbd7a19e7bfcf1d6065991cfcc9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.
---
 hash.c | 10 +++++-----
 lib.c  |  6 +++---
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/hash.c b/hash.c
index 40833283..35e22de2 100644
--- a/hash.c
+++ b/hash.c
@@ -491,7 +491,7 @@ static void hash_print_op(val hash, val out, val pretty, struct strm_ctx *ctx)
     put_char(chr(' '), out);
     obj_print_impl(h->userdata, out, pretty, ctx);
   }
-  put_string(lit(")"), out);
+  put_char(chr(')'), out);
   {
     val iter = hash_begin(hash), cell;
     cnum max_len = ctx->strm->max_length;
@@ -508,18 +508,18 @@ static void hash_print_op(val hash, val out, val pretty, struct strm_ctx *ctx)
         break;
       }
 
-      put_string(lit("("), out);
+      put_char(chr('('), out);
       obj_print_impl(key, out, pretty, ctx);
 
       if (value) {
-        put_string(lit(" "), out);
+        put_char(chr(' '), out);
         obj_print_impl(value, out, pretty, ctx);
       }
 
-      put_string(lit(")"), out);
+      put_char(chr(')'), out);
     }
   }
-  put_string(lit(")"), out);
+  put_char(chr(')'), out);
 
   if (force_br)
     force_break(out);
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