summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/benchmark.el
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2021-03-12 16:42:51 +0100
committerAndrea Corallo <akrl@sdf.org>2021-03-12 16:42:51 +0100
commit82bd6d57d54d4cdb205d921c2476d1dbb17f4188 (patch)
treefca7c47620f8d246015b85aab8dd91e440847743 /lisp/emacs-lisp/benchmark.el
parentd9cd55a4f1c3f391b996dfbe77ed24306b37ac9f (diff)
parenta0854f939ce3a1de2c8cbc5e38b106a8df4480f6 (diff)
downloademacs-82bd6d57d54d4cdb205d921c2476d1dbb17f4188.tar.gz
emacs-82bd6d57d54d4cdb205d921c2476d1dbb17f4188.tar.bz2
emacs-82bd6d57d54d4cdb205d921c2476d1dbb17f4188.zip
Merge remote-tracking branch 'savannah/master' into native-comp
Diffstat (limited to 'lisp/emacs-lisp/benchmark.el')
-rw-r--r--lisp/emacs-lisp/benchmark.el3
1 files changed, 2 insertions, 1 deletions
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)))))