diff options
author | 2014-05-13 20:26:58 +0200 | |
---|---|---|
committer | 2014-05-13 20:26:58 +0200 | |
commit | aaebc8d9d24b2e989b26333e43f6e41c6d77d01d (patch) | |
tree | 44e2682c287487d5718038187325d998f6833295 /toplevel | |
parent | ad4c15f22abcb473dfa4cfc31e2ad5bf37c22a92 (diff) |
Fix the behaviour of ML tactic notations w.r.t. Imports by making them
substitutive.
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/metasyntax.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index a64f32d09..a398b7777 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -160,6 +160,8 @@ let inMLTacticGrammar : ml_tactic_grammar_obj -> obj = declare_object { (default_object "MLTacticGrammar") with open_function = open_ml_tactic_notation; cache_function = cache_ml_tactic_notation; + classify_function = (fun o -> Substitute o); + subst_function = (fun (_, o) -> o); } let add_ml_tactic_notation name prods atomic = |