diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-09-26 07:05:07 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-09-26 07:05:07 -0700 |
commit | 3c524ae5ddf314e12351b393cc7ffc62aed78f8a (patch) | |
tree | 84f6dc66ffa8fdb2fa119b28eb445906ddd45b0c | |
parent | 77e596fe12ffd0b74159e7b9427108d0fc21300c (diff) | |
download | txr-3c524ae5ddf314e12351b393cc7ffc62aed78f8a.tar.gz txr-3c524ae5ddf314e12351b393cc7ffc62aed78f8a.tar.bz2 txr-3c524ae5ddf314e12351b393cc7ffc62aed78f8a.zip |
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.
-rw-r--r-- | hash.c | 10 | ||||
-rw-r--r-- | lib.c | 6 |
2 files changed, 8 insertions, 8 deletions
@@ -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); @@ -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))) { |