diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-02 07:53:26 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-02 07:53:26 +0000 |
| commit | e4110b17d1b0e6779e0ec4976e4b5f972c45d0e3 (patch) | |
| tree | 6a3a03d1693dd53fcaa7f13b2eb3d3d3d6ab00a1 /toplevel/metasyntax.ml | |
| parent | 43a02c4fb44452e97cf995a58d0e8db5aecc8d08 (diff) | |
On force l'associativité pour les entrées sans niveaux
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3348 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/metasyntax.ml')
| -rw-r--r-- | toplevel/metasyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 564fc48d8..02148a53e 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -187,7 +187,7 @@ let add_tactic_grammar g = let print_grammar univ entry = let u = get_univ univ in let typ = explicitize_entry (fst u) entry in - let te,_ = get_constr_entry typ in + let te,_,_ = get_constr_entry typ in Gram.Entry.print te (* Infix, distfix, notations *) |