From 60cfb90d0161af4fc3219bba00525e7a3473601a Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 27 Jan 2022 10:39:53 +0100 Subject: [PATCH] * Have `benchmark-run-compiled' use the native compiler when available * lisp/emacs-lisp/benchmark.el (benchmark-run-compiled): Use native compiler when available. --- lisp/emacs-lisp/benchmark.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el index c5f621c6c86..882b1d68c48 100644 --- a/lisp/emacs-lisp/benchmark.el +++ b/lisp/emacs-lisp/benchmark.el @@ -121,7 +121,11 @@ result. The overhead of the `lambda's is accounted for." (unless (or (natnump repetitions) (and repetitions (symbolp repetitions))) (setq forms (cons repetitions forms) repetitions 1)) - `(benchmark-call (byte-compile '(lambda () ,@forms)) ,repetitions)) + `(benchmark-call (,(if (native-comp-available-p) + 'native-compile + 'byte-compile) + '(lambda () ,@forms)) + ,repetitions)) ;;;###autoload (defun benchmark (repetitions form) -- 2.39.5