diff options
| author | herbelin | 2003-01-19 21:56:58 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-19 21:56:58 +0000 |
| commit | bee144512660fe96d5d9527eb1db091a647bc24e (patch) | |
| tree | a1e24c1d872975538e6c7af7480f0fb404eef4a9 | |
| parent | 4767404bdc47e8148ab5ea171a0abb43795b01cf (diff) | |
Erreur sur precedent commit
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3530 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/constrintern.ml | 2 | ||||
| -rw-r--r-- | proofs/tactic_debug.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index ef92ff3bc2..74740abcef 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -335,7 +335,7 @@ let check_capture loc ty = function () let locate_if_isevar loc na = function - | RHole _ -> RHole (loc, AbstractionType na)) + | RHole _ -> RHole (loc, AbstractionType na) | x -> x (**********************************************************************) diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 68d1425aa0..1e21116391 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -43,8 +43,8 @@ let rec db_print_error = function db_print_error exc | Util.UserError(s,pps) -> hov 1 (str"Error: " ++ pps) - | GlobalizationError q -> - hov 0 (str "Error: " ++ Libnames.pr_qualid q ++ str " not found") ++ + | Nametab.GlobalizationError q -> + hov 0 (str "Error: " ++ Libnames.pr_qualid q ++ str " not found") | _ -> hov 0 (str "Uncaught exception ") |