diff options
| author | barras | 2001-03-28 15:11:26 +0000 |
|---|---|---|
| committer | barras | 2001-03-28 15:11:26 +0000 |
| commit | 8e82c4096357355a148705341742702ff285f72a (patch) | |
| tree | 4c666a566036e48680f0f76045efe09104f77091 /parsing/esyntax.ml | |
| parent | 5086461b2de4c3e87146ac803b99538a4c187b98 (diff) | |
amelioration de la structure des univers
elimination des compteurs globaux de metas et d'evars du noyau
nettoyage de safe_typing.ml (plus de flags)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1497 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/esyntax.ml')
| -rw-r--r-- | parsing/esyntax.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/parsing/esyntax.ml b/parsing/esyntax.ml index ba6e8614e4..250000b74c 100644 --- a/parsing/esyntax.ml +++ b/parsing/esyntax.ml @@ -154,10 +154,11 @@ let print_syntax_entry whatfor sub_pr env se = | PH(e,externpr,reln) -> let printer = match externpr with (* May branch to an other printer *) - | Some (c,entry_prec) -> + | Some c -> (try (* Test for a primitive printer *) (Ppprim.map c) (sub_pr whatfor (Some(rule_prec,reln))) - with Not_found -> token_printer (sub_pr c entry_prec)) + with Not_found -> + token_printer (sub_pr c (Some(rule_prec,reln)))) | None -> token_printer (sub_pr whatfor (Some(rule_prec,reln))) in printer (Ast.pat_sub Ast.dummy_loc env e) |