From a1fe45ddbd37d3c447a23cde0ee21f105ef42ac0 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Fri, 6 Jun 2008 22:39:43 +0000
Subject: Enhancements to coqdoc, better globalization of sections and modules.
 Minor fix in Morphisms which prevented working with higher-order morphisms
 and PER relations.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11065 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/auto.ml | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'tactics')

diff --git a/tactics/auto.ml b/tactics/auto.ml
index e9424ed0c4..e41bebea11 100644
--- a/tactics/auto.ml
+++ b/tactics/auto.ml
@@ -432,16 +432,17 @@ let add_hints local dbnames0 h =
       add_trivials env sigma (List.map f lhints) local dbnames
   | HintsUnfold lhints ->
       let f r =
-	let r = Syntax_def.global_with_alias r in
-        let r' = match r with
+	let gr = Syntax_def.global_with_alias r in
+        let r' = match gr with
          | ConstRef c -> EvalConstRef c
          | VarRef c -> EvalVarRef c
          | _ -> 
            errorlabstrm "evalref_of_ref"
-            (str "Cannot coerce" ++ spc () ++ pr_global r ++ spc () ++
+            (str "Cannot coerce" ++ spc () ++ pr_global gr ++ spc () ++
              str "to an evaluable reference")
         in
-	 (r,r') in
+	  if !Flags.dump then Constrintern.add_glob (loc_of_reference r) gr;
+	 (gr,r') in
       add_unfolds (List.map f lhints) local dbnames
   | HintsConstructors lqid ->
       let add_one qid =
-- 
cgit v1.2.3