diff options
| author | ppedrot | 2013-11-10 22:00:23 +0000 |
|---|---|---|
| committer | ppedrot | 2013-11-10 22:00:23 +0000 |
| commit | bf33614eef6c26c169ab9dae9fd2f3713d19d23f (patch) | |
| tree | 177d28a9dc0be4b918f0b2732bcc3adb0db197e9 /grammar | |
| parent | 6544bd19001a18aea49c30e94a09649f2dcc61e4 (diff) | |
Centralizing the Ltac-defining functions in Tacenv.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17080 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/tacextend.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/grammar/tacextend.ml4 b/grammar/tacextend.ml4 index e56f7a34e5..e648aef4eb 100644 --- a/grammar/tacextend.ml4 +++ b/grammar/tacextend.ml4 @@ -185,13 +185,13 @@ let declare_tactic loc s c cl = declare_str_items loc [ <:str_item< do { try do { - Tacinterp.add_tactic $se$ $make_fun_clauses loc s cl$; + Tacenv.register_ml_tactic $se$ $make_fun_clauses loc s cl$; Vernac_classifier.declare_vernac_classifier $se$ $make_fun_classifiers loc s c cl$; List.iter (fun (s,l) -> match l with [ Some l -> - Tacintern.add_primitive_tactic s + Tacenv.register_atomic_ltac (Names.Id.of_string s) (Tacexpr.TacAtom($default_loc$, Tacexpr.TacExtend($default_loc$,$se$,l))) | None -> () ]) |