Biocaml 0.4-dev : Biocaml_genomeMap.Make.LMap.closest

let closest lmap (k,r) =

  Option.bind

   (Map.find lmap k)

   Range.(fun x ->

     try

      let lo,hi,label,d = T.find_closest r.lo r.hi x in

      Some ((k, ok_exn (make lo hi)), label, d)

     with T.Empty_tree -> None

    )