diff options
| -rw-r--r-- | toplevel/toplevel.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/toplevel.ml b/toplevel/toplevel.ml index 124f9e9f19..1db7707801 100644 --- a/toplevel/toplevel.ml +++ b/toplevel/toplevel.ml @@ -109,7 +109,7 @@ let print_highlight_location ib (bp,ep) = let highlight_lines = match get_bols_of_loc ib (bp,ep) with | ([],(bl,el)) -> - [< 'sTR"> "; 'sTR(String.sub ib.str bl (el-bl)); 'fNL; + [< 'sTR"> "; 'sTR(String.sub ib.str bl (el-bl-1)); 'fNL; 'sTR"> "; 'sTR(String.make (bp-bl) ' '); 'sTR(String.make (ep-bp) '^') >] | ((b1,e1)::ml,(bn,en)) -> |