procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak

Browse source
This commit is contained in:
Stefan Monnier 2021-06-11 14:06:29 -04:00
parent 87bd14ca8b
commit e775ef2f57
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/benchmark.el
View file

@ -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)))))