From c6aa96773e1c9061b5f8924afe4d203c9b0b26b4 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 7 Aug 2011 06:07:35 +0400
Subject: [PATCH] Remove residue

---
 main.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/main.ml b/main.ml
index bbb0a0a..aaf707b 100644
--- a/main.ml
+++ b/main.ml
@@ -1799,7 +1799,7 @@ let drawplaceholder l =
 
 let now () = Unix.gettimeofday ();;
 
-let drawpage i l =
+let drawpage l =
   begin match getopaque l.pageno with
   | Some (opaque, _) when validopaque opaque ->
       if state.textentry = None
@@ -1815,7 +1815,6 @@ let drawpage i l =
   | _ ->
       drawplaceholder l;
   end;
-  l.pagedispy + l.pagevh;
 ;;
 
 let scrollph y =
@@ -1968,7 +1967,7 @@ let display () =
     Gl.enable `scissor_test;
     GlMisc.scissor 0 0 (conf.winw - conf.scrollw) conf.winh;
   );
-  let _lasty = List.fold_left drawpage 0 (state.layout) in
+  List.iter drawpage state.layout;
   if conf.zoom > 1.0
   then
     Gl.disable `scissor_test
-- 
2.11.4.GIT