diff options
| -rw-r--r-- | toplevel/toplevel.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/toplevel.ml b/toplevel/toplevel.ml index 3b96ede0b5..ac8167f289 100644 --- a/toplevel/toplevel.ml +++ b/toplevel/toplevel.ml @@ -136,6 +136,7 @@ let print_highlight_location ib loc = str sn ++ str dn) in (l1 ++ li ++ ln) in + let loc = make_loc (bp,ep) in (str"Toplevel input, characters " ++ Cerrors.print_loc loc ++ fnl () ++ highlight_lines ++ fnl ()) |