Cosmetics
authormalc <av1474@comtv.ru>
Wed, 24 Oct 2012 21:56:22 +0000 (25 01:56 +0400)
committermalc <av1474@comtv.ru>
Wed, 24 Oct 2012 21:56:22 +0000 (25 01:56 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 72034d6..bae9ea2 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -214,7 +214,7 @@ let cbgetg b circular dir =
           else rc
         )
       )
-      else max 0 (min rc (b.len-1))
+      else bound rc 0 (b.len-1)
     in
     b.rc <- rc;
     b.store.(rc);