From d56b5346f6ba78ab248286e8d7caec7d5a6c1fbf Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Mon, 30 Jun 2014 16:45:28 +0200
Subject: Little coqide bug, when coqtop outputs empty lines, as e.g. when
 calling coqide --help.

---
 ide/coq.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ide/coq.ml')

diff --git a/ide/coq.ml b/ide/coq.ml
index c1555e57f..e8e925e44 100644
--- a/ide/coq.ml
+++ b/ide/coq.ml
@@ -54,7 +54,7 @@ let rec read_all_lines in_chan =
     let arg = input_line in_chan in
     let len = String.length arg  in
     let arg =
-      if arg.[len - 1] = '\r' then
+      if len > 0 && arg.[len - 1] = '\r' then
 	String.sub arg 0 (len - 1)
       else arg
     in
-- 
cgit v1.2.3