From bee144512660fe96d5d9527eb1db091a647bc24e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 19 Jan 2003 21:56:58 +0000
Subject: Erreur sur precedent commit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3530 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/constrintern.ml | 2 +-
 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 ")
 
-- 
cgit v1.2.3