[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e775ef2: * lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak
From: |
Stefan Monnier |
Subject: |
master e775ef2: * lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak |
Date: |
Fri, 11 Jun 2021 14:06:35 -0400 (EDT) |
branch: master
commit e775ef2f57e7889e29edbf44e6f6a2deb79d2635
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak
---
lisp/emacs-lisp/benchmark.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el
index 439d3bd..64c6288 100644
--- a/lisp/emacs-lisp/benchmark.el
+++ b/lisp/emacs-lisp/benchmark.el
@@ -37,8 +37,7 @@
"Return the time in seconds elapsed for execution of FORMS."
(declare (indent 0) (debug t))
(let ((t1 (make-symbol "t1")))
- `(let (,t1)
- (setq ,t1 (current-time))
+ `(let ((,t1 (current-time)))
,@forms
(float-time (time-since ,t1)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e775ef2: * lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak,
Stefan Monnier <=