diff options
| author | ppedrot | 2013-05-12 15:33:40 +0000 |
|---|---|---|
| committer | ppedrot | 2013-05-12 15:33:40 +0000 |
| commit | de26e97cf37cafd37b83377d2df062a6e82676e7 (patch) | |
| tree | 1f093c94b7cb8ab59f301b9c5ee7ca712aa9fa0f /tactics/tacintern.ml | |
| parent | 9a9a8ab4c2a07aa8faa04f50d6250930220b5be5 (diff) | |
Use the Hook module here and there.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16510 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacintern.ml')
| -rw-r--r-- | tactics/tacintern.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tactics/tacintern.ml b/tactics/tacintern.ml index 6a1a33fb0c..b7108f4d32 100644 --- a/tactics/tacintern.ml +++ b/tactics/tacintern.ml @@ -983,7 +983,8 @@ let add_tacdef local isrec tacl = (***************************************************************************) (* Backwarding recursive needs of tactic glob/interp/eval functions *) -let _ = Auto.set_extern_intern_tac - (fun l -> - Flags.with_option strict_check - (intern_pure_tactic { (make_empty_glob_sign()) with ltacvars=(l,[])})) +let _ = + let f l = Flags.with_option strict_check + (intern_pure_tactic { (make_empty_glob_sign()) with ltacvars=(l,[])}) + in + Hook.set Auto.extern_intern_tac f |