                                 (tail (cond ((equal tail "position")
                                              " (* tail position *)")
                                             ((equal tail "call")
-                                             " (* tail cail *)")
+                                             " (* tail call *)")
                                             (t "")))
                                 (type (cdr (assoc 'type obj))))
                            (cons (concat type tail)

;;;;;;;;;;;;;;;;;;;;;;;;

(defun lookup-default (key list &optional default)
  "Lookup KEY in LIST which a list of pairs. If it not found,
return DEFAULT or the value associated to KEY otherwise."
  (let ((v (assoc key list)))
    (if v (cdr v)
      default)))

           (select-window (display-buffer (car r)))))
    (when r (goto-char (cdr r)))))

;;;;;;;;;;;;;;;;;
;; OCCURRENCES ;;
;;;;;;;;;;;;;;;;;

(defun merlin--occurrence-text (line-num marker start end source-buf)
  (concat (propertize (format "%7d:" line-num)
