diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-06-11 14:06:29 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-06-11 14:06:29 -0400 |
| commit | e775ef2f57e7889e29edbf44e6f6a2deb79d2635 (patch) | |
| tree | c1f61488d2c4cbc745ced8f3a4993ada8a82dd24 /lisp/emacs-lisp | |
| parent | 87bd14ca8bdecda6964aeb3c323faee846a8c1b8 (diff) | |
| download | emacs-e775ef2f57e7889e29edbf44e6f6a2deb79d2635.tar.gz emacs-e775ef2f57e7889e29edbf44e6f6a2deb79d2635.tar.bz2 emacs-e775ef2f57e7889e29edbf44e6f6a2deb79d2635.zip | |
* lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/benchmark.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el index 439d3bd363e..64c628822df 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))))) |