From c2374487d235c08b71762d2ceb8645d18481c97f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 21 Apr 2016 20:49:14 -0700 Subject: Rename misleadingly named out_str_pretty function. * lib.c (out_str_pretty): Rename to out_str_readable. This function is called from obj_print_impl precisely when the pretty flag is false: pretty means output textual things as the text they denote, rather than machine-readable Lisp. (out_lazy_str, obj_print_impl): Calls updated. --- lib.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib.c b/lib.c index 677cce60..1256314f 100644 --- a/lib.c +++ b/lib.c @@ -8699,7 +8699,7 @@ void out_str_char(wchar_t ch, val out, int *semi_flag) } } -static void out_str_pretty(const wchar_t *ptr, val out, int *semi_flag) +static void out_str_readable(const wchar_t *ptr, val out, int *semi_flag) { for (; *ptr; ptr++) out_str_char(*ptr, out, semi_flag); @@ -8718,7 +8718,7 @@ static void out_lazy_str(val lstr, val out) put_char(chr('"'), out); - out_str_pretty(c_str(lstr->ls.prefix), out, &semi_flag); + out_str_readable(c_str(lstr->ls.prefix), out, &semi_flag); for (iter = lstr->ls.list; (!lim || gt(lim, zero)) && iter; iter = cdr(iter)) @@ -8726,8 +8726,8 @@ static void out_lazy_str(val lstr, val out) val str = car(iter); if (!str) break; - out_str_pretty(c_str(str), out, &semi_flag); - out_str_pretty(wcterm, out, &semi_flag); + out_str_readable(c_str(str), out, &semi_flag); + out_str_readable(wcterm, out, &semi_flag); if (lim) lim = pred(lim); } @@ -8863,7 +8863,7 @@ finish: int semi_flag = 0; put_char(chr('"'), out); - out_str_pretty(c_str(obj), out, &semi_flag); + out_str_readable(c_str(obj), out, &semi_flag); put_char(chr('"'), out); } -- cgit v1.2.3