diff options
| author | herbelin | 2006-10-20 14:22:41 +0000 |
|---|---|---|
| committer | herbelin | 2006-10-20 14:22:41 +0000 |
| commit | 955d13dc2a62cec04d213e79d090bd5bdb3ddf99 (patch) | |
| tree | 4f98f27de2fa7a50a4397d7accdee63489dd4ce8 | |
| parent | eac1a9c004a4a99cad58ea7de57d8e6a0da29634 (diff) | |
Correction de la localisation des erreurs en interactif (numéro de
ligne relatif à la ligne au lieu de absolu par rapport à la session)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9252 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 ()) |