(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`.

diff --git a/lisp/emacs-lisp/debug-early.el b/lisp/emacs-lisp/debug-early.el
index e557643e467620de9bdf61eb7b7cd31326078f9a..a81b29d105c2d85d9d2e8485e5084cbc3d058edb 100644 (file)
--- 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)