diff options
| author | herbelin | 2006-09-21 15:10:08 +0000 |
|---|---|---|
| committer | herbelin | 2006-09-21 15:10:08 +0000 |
| commit | 8c6dfd9330d5a89c1f8cc295142ff0c36384457a (patch) | |
| tree | 887d66733b045a0c1a09177c07c56e1e949bc8a2 | |
| parent | 1d874af4b89c3c13551ce3648924b1b7ee6fcc24 (diff) | |
Visibilité des Rewrite Hint dès le chargement du module, sans nécessiter sans ouverture, comme c'est le cas pour les autres Hints
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9157 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/autorewrite.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml index d513653f5b..eb8e07173d 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -209,8 +209,8 @@ let classify_hintrewrite (_,x) = Libobject.Substitute x (* Declaration of the Hint Rewrite library object *) let (in_hintrewrite,out_hintrewrite)= Libobject.declare_object {(Libobject.default_object "HINT_REWRITE") with - Libobject.open_function = (fun i o -> if i=1 then cache_hintrewrite o); Libobject.cache_function = cache_hintrewrite; + Libobject.load_function = (fun _ -> cache_hintrewrite); Libobject.subst_function = subst_hintrewrite; Libobject.classify_function = classify_hintrewrite; Libobject.export_function = export_hintrewrite } |