From ebb8310f847b9034d24680b5bac58bc0690b0836 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sun, 15 Jun 2014 23:10:16 +0200
Subject: [PATCH] bugfix

---
 core/CCLinq.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/core/CCLinq.ml b/core/CCLinq.ml
index e2060191..5650d4c6 100644
--- a/core/CCLinq.ml
+++ b/core/CCLinq.ml
@@ -1008,7 +1008,8 @@ module IO = struct
     else _find s c (i+1)
 
   let rec _lines s i k = match _find s '\n' i with
-    | None -> ()
+    | None ->
+      if i<String.length s then k (String.sub s i (String.length s-i))
     | Some j ->
         let s' = String.sub s i (j-i) in
         k s';