diff options
| -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 | ||