diff options
| -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 ") |