diff options
| author | Stefan Monnier | 2021-06-11 14:06:29 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2021-06-11 14:06:29 -0400 |
| commit | e775ef2f57e7889e29edbf44e6f6a2deb79d2635 (patch) | |
| tree | c1f61488d2c4cbc745ced8f3a4993ada8a82dd24 | |
| parent | 87bd14ca8bdecda6964aeb3c323faee846a8c1b8 (diff) | |
| download | emacs-e775ef2f57e7889e29edbf44e6f6a2deb79d2635.tar.gz emacs-e775ef2f57e7889e29edbf44e6f6a2deb79d2635.zip | |
* lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak
| -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 @@ | |||
| 37 | "Return the time in seconds elapsed for execution of FORMS." | 37 | "Return the time in seconds elapsed for execution of FORMS." |
| 38 | (declare (indent 0) (debug t)) | 38 | (declare (indent 0) (debug t)) |
| 39 | (let ((t1 (make-symbol "t1"))) | 39 | (let ((t1 (make-symbol "t1"))) |
| 40 | `(let (,t1) | 40 | `(let ((,t1 (current-time))) |
| 41 | (setq ,t1 (current-time)) | ||
| 42 | ,@forms | 41 | ,@forms |
| 43 | (float-time (time-since ,t1))))) | 42 | (float-time (time-since ,t1))))) |
| 44 | 43 | ||