diff options
| author | Basil L. Contovounesios | 2020-06-21 19:01:40 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios | 2020-06-21 19:01:40 +0100 |
| commit | 0792f8e4f0de2328c57d552a5845bdf77265a971 (patch) | |
| tree | 8a1847b98bfd05ab47be45ed57f5553fc34d3a46 | |
| parent | 8df2957df167bf34220fbf6a059752759ef41f4a (diff) | |
| download | emacs-0792f8e4f0de2328c57d552a5845bdf77265a971.tar.gz emacs-0792f8e4f0de2328c57d552a5845bdf77265a971.zip | |
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.
| -rw-r--r-- | lisp/emacs-lisp/benchmark.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 81 | (gcs (make-symbol "gcs")) | 81 | (gcs (make-symbol "gcs")) |
| 82 | (gc (make-symbol "gc")) | 82 | (gc (make-symbol "gc")) |
| 83 | (code (byte-compile `(lambda () ,@forms))) | 83 | (code (byte-compile `(lambda () ,@forms))) |
| 84 | (lambda-code (byte-compile (lambda ())))) | 84 | (lambda-code (byte-compile '(lambda ())))) |
| 85 | `(let ((,gc gc-elapsed) | 85 | `(let ((,gc gc-elapsed) |
| 86 | (,gcs gcs-done)) | 86 | (,gcs gcs-done)) |
| 87 | (list ,(if (or (symbolp repetitions) (> repetitions 1)) | 87 | (list ,(if (or (symbolp repetitions) (> repetitions 1)) |