(defun profiler-format-number (number)
"Format NUMBER in human readable string."
(if (and (integerp number) (> number 0))
- (cl-loop with i = (% (1+ (floor (log10 number))) 3)
+ (cl-loop with i = (% (1+ (floor (log number 10))) 3)
for c in (append (number-to-string number) nil)
if (= i 0)
collect ?, into s
(defun profiler-calltree-find (tree entry)
"Return a child tree of ENTRY under TREE."
(let (result (children (profiler-calltree-children tree)))
- ;; FIXME: Use `assoc'.
(while (and children (null result))
(let ((child (car children)))
- (when (equal (profiler-calltree-entry child) entry)
+ (when (function-equal (profiler-calltree-entry child) entry)
(setq result child))
(setq children (cdr children))))
result))