From 99aebb7138ef19393732ee9ec511923ad78e4bf3 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Thu, 23 Feb 2012 22:47:39 +0400
Subject: [PATCH] Usability

---
 link.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/link.c b/link.c
index 3e2fb77..caa797e 100644
--- a/link.c
+++ b/link.c
@@ -2096,7 +2096,7 @@ CAMLprim value ml_findlink (value ptr_v, value dir_v)
             found = &page->slinks[slinkindex];
             for (i = slinkindex + 1; i < page->slinkcount; ++i) {
                 slink = &page->slinks[i];
-                if (slink->bbox.y0 > found->bbox.y0) {
+                if (slink->bbox.y0 >= found->bbox.y0) {
                     found = slink;
                     break;
                 }
@@ -2108,7 +2108,7 @@ CAMLprim value ml_findlink (value ptr_v, value dir_v)
             found = &page->slinks[slinkindex];
             for (i = slinkindex - 1; i >= 0; --i) {
                 slink = &page->slinks[i];
-                if (slink->bbox.y0 < found->bbox.y0) {
+                if (slink->bbox.y0 <= found->bbox.y0) {
                     found = slink;
                     break;
                 }
-- 
2.11.4.GIT