From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Sun, 21 Jun 2020 18:01:40 +0000 (+0100)
Subject: Revert last change in benchmark.el
X-Git-Tag: emacs-28.0.90~7121
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0792f8e4f0de2328c57d552a5845bdf77265a971;p=emacs.git

Revert last change in benchmark.el

For discussion, see the following thread:
https://lists.gnu.org/archive/html/emacs-devel/2020-06/msg00791.html

* lisp/emacs-lisp/benchmark.el (benchmark-run-compiled): Revert to
giving byte-compile a form rather than a closure.
---

diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el
index 984c62ddd54..2fa5a878801 100644
--- a/lisp/emacs-lisp/benchmark.el
+++ b/lisp/emacs-lisp/benchmark.el
@@ -81,7 +81,7 @@ result.  The overhead of the `lambda's is accounted for."
 	(gcs (make-symbol "gcs"))
 	(gc (make-symbol "gc"))
 	(code (byte-compile `(lambda () ,@forms)))
-        (lambda-code (byte-compile (lambda ()))))
+        (lambda-code (byte-compile '(lambda ()))))
     `(let ((,gc gc-elapsed)
 	   (,gcs gcs-done))
        (list ,(if (or (symbolp repetitions) (> repetitions 1))