From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 10 Mar 2021 14:52:36 +0000 (+0100)
Subject: Fix byte-compilation warning in benchmark-run
X-Git-Tag: emacs-28.0.90~3340
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b47eb32c6a45ac9f4d4895c1a6dd6db441baafb;p=emacs.git

Fix byte-compilation warning in benchmark-run

* lisp/emacs-lisp/benchmark.el (benchmark-run): Avoid a
byte-compilation warning about an empty let body (bug#46819).
---

diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el
index 14bc2817390..2a3efbe5a1b 100644
--- a/lisp/emacs-lisp/benchmark.el
+++ b/lisp/emacs-lisp/benchmark.el
@@ -62,7 +62,8 @@ See also `benchmark-run-compiled'."
 		  ;; Take account of the loop overhead.
 		  `(- (benchmark-elapse (dotimes (,i ,repetitions)
 					  ,@forms))
-		      (benchmark-elapse (dotimes (,i ,repetitions))))
+		      (benchmark-elapse (dotimes (,i ,repetitions)
+                                          nil)))
 		`(benchmark-elapse ,@forms))
 	     (- gcs-done ,gcs)
 	     (- gc-elapsed ,gc)))))