Refactor low-level printing for simplicity

* src/print.c (PRINTDECLARE): Remove.  Move its contents into
PRINTPREPARE; doable now that we assume C99.  All callers changed.
(PRINTCHAR): Remove, as it adds more mystery than clarity.
All callers changed.
(strout): Assume that caller computes length.  All callers changed.
(print_c_string): New function.
(write_string, write_string_1): Compute length instead of asking
the caller to compute it.  All callers changed.
(write_string): Simplify by using write_string_1.
(write_string_1): Simplify by using print_c_string.
(Fterpri): Compute default val more clearly.
(Fprin1_to_string, print_object):
Assume C99 to avoid unnecessary nesting.
(print_object): Prefer print_c_string to multiple printchar, or
to calling strout with -1 length.  Coalesce into sprintf when
this is easy.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/eval.c b/src/eval.c
index 11d08895c37..490226149ff 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -3305,27 +3305,27 @@ Output stream used is value of `standard-output'.  */)
 
   while (backtrace_p (pdl))
     {
-      write_string (backtrace_debug_on_exit (pdl) ? "* " : "  ", 2);
+      write_string (backtrace_debug_on_exit (pdl) ? "* " : "  ");
       if (backtrace_nargs (pdl) == UNEVALLED)
         {
           Fprin1 (Fcons (backtrace_function (pdl), *backtrace_args (pdl)),
                   Qnil);
-          write_string ("\n", -1);
+          write_string ("\n");
         }
       else
         {
           tem = backtrace_function (pdl);
           Fprin1 (tem, Qnil);   /* This can QUIT.  */
-          write_string ("(", -1);
+          write_string ("(");
           {
             ptrdiff_t i;
             for (i = 0; i < backtrace_nargs (pdl); i++)
               {
-                if (i) write_string (" ", -1);
+                if (i) write_string (" ");
                 Fprin1 (backtrace_args (pdl)[i], Qnil);
               }
           }
-          write_string (")\n", -1);
+          write_string (")\n");
         }
       pdl = backtrace_next (pdl);
     }