master e95ca5cf07 1/2: (debug-early-backtrace): Tweak the non-evald output

[Stefan Monnier]

branch: master
commit e95ca5cf071ba66300994f031408539218664a58
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    (debug-early-backtrace): Tweak the non-evald output
    
    * lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Make the
    non-evald output more like what is used in `debug.el`.
---
 lisp/emacs-lisp/debug-early.el | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/lisp/emacs-lisp/debug-early.el b/lisp/emacs-lisp/debug-early.el
index e557643e46..a81b29d105 100644
--- a/lisp/emacs-lisp/debug-early.el
+++ b/lisp/emacs-lisp/debug-early.el
@@ -47,18 +47,15 @@ of the build process."
             (progn
               (princ "  ")
               (prin1 func)
-              (princ "(")
-              (while args
-                (prin1 (car args))
-                (setq args (cdr args))
-                (if args
-                    (princ " ")))
-              (princ ")\n"))
-          (while args
-            (princ "  ")
-            (prin1 (car args))
-            (princ "\n")
-            (setq args (cdr args)))))))))
+              (princ "("))
+          (progn
+            (princ "  (")
+            (setq args (cons func args))))
+        (while (progn
+                 (prin1 (car args))
+                 (setq args (cdr args)))
+          (princ " "))
+        (princ ")\n"))))))
 
 (defalias 'debug-early
   #'(lambda (&rest args)