     (when hole
       (let* ((start (merlin-lookup 'start hole))
              (typ (merlin-lookup 'type hole))
-             (hole-point (merlin/make-point start)))
+             (hole-point (merlin-make-point start)))
         (if (and
               (>= hole-point pmin)
               (<= hole-point pmax))

    (let* ((head (first holes))
           (tail (rest holes))
           (start (merlin-lookup 'start head))
           (hole-point (merlin/make-point start)))
      (if (funcall comp hole-point current-point)
        head
        (merlin--first-hole-aux tail current-point comp)))))


(defun merlin--holes ()
  "Query the list of holes (and their types)"
  (merlin-call "holes"))

(defun merlin--first-hole-aux (holes current-point comp)
  "Returns the first `hole` of the list such that
