diff options
author | 2013-03-14 15:41:56 +0000 | |
---|---|---|
committer | 2013-03-14 15:41:56 +0000 | |
commit | 4d1f1552b02fdb028466f318b9be750f64fc4c53 (patch) | |
tree | d2df65840d88aab5c34a4a3ec8c45bbde6c339b0 /printing/ppvernac.ml | |
parent | 79b6291ccda61f631aa2cfec9a12d6ea2a34fa96 (diff) |
Pptactic.pr_raw_tactic is now without env argument
This env argument was just there by analogy with the glob_tactic
case, and actually ignored for raw_tactic
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16301 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/ppvernac.ml')
-rw-r--r-- | printing/ppvernac.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 195b2638b..339d16ece 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -65,13 +65,13 @@ let sep_end = function let pr_raw_tactic_env l env t = pr_glob_tactic env (Tacintern.glob_tactic_env l env t) -let pr_gen env t = +let pr_gen t = pr_raw_generic pr_constr_expr pr_lconstr_expr - (pr_raw_tactic_level env) pr_constr_expr pr_reference t - -let pr_raw_tactic tac = pr_raw_tactic (Global.env()) tac + pr_raw_tactic_level + pr_constr_expr + pr_reference t let rec extract_signature = function | [] -> [] @@ -955,7 +955,7 @@ let rec pr_vernac = function and pr_extend s cl = let pr_arg a = - try pr_gen (Global.env()) a + try pr_gen a with Failure _ -> str ("<error in "^s^">") in try let rls = List.assoc s (Egramml.get_extend_vernac_grammars()) in |