Fix eval-tests/backtrace-in-batch-mode test

* lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Fix the zero-arg case.
2022-02-06 19:20:36 -05:00
parent 0d36eaa7c6
commit 69efc36c6b
1 changed files with 5 additions and 4 deletions
--- a/lisp/emacs-lisp/debug-early.el
+++ b/lisp/emacs-lisp/debug-early.el
@@ -53,10 +53,11 @@ of the build process."
 	   (progn
 	     (princ "  (")
 	     (setq args (cons func args))))
-	 (while (progn
-	          (prin1 (car args))
-	          (setq args (cdr args)))
-	   (princ " "))
+	 (if args
+	     (while (progn
+	              (prin1 (car args))
+	              (setq args (cdr args)))
+	       (princ " ")))
 	 (princ ")\n"))))))

 (defalias 'debug-early