diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-30 16:45:28 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-30 17:23:10 +0200 |
| commit | d56b5346f6ba78ab248286e8d7caec7d5a6c1fbf (patch) | |
| tree | bb4e70f7fec93d80b8f71b789e646b7da27351a1 /ide/coq.ml | |
| parent | a0ccd7bdc29c35dd291a526891fdbb9909b8e827 (diff) | |
Little coqide bug, when coqtop outputs empty lines, as e.g. when calling coqide --help.
Diffstat (limited to 'ide/coq.ml')
| -rw-r--r-- | ide/coq.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |