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.

1 files 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);
     }