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