diff options
| author | glondu | 2010-12-24 23:49:21 +0000 |
|---|---|---|
| committer | glondu | 2010-12-24 23:49:21 +0000 |
| commit | d33ced344ba377f0a4003102d77f880fda108fd7 (patch) | |
| tree | a8f7642bb599a08ada8b6392d0fa14f823e57e3c /parsing/printer.ml | |
| parent | 6ebd4c4ad28d46965623e72d8654c36fcc6fe9b0 (diff) | |
More {raw => glob} changes for consistency
perl -pi -e 's/(\W|_)raw((?:sort|_prop|terms?|_branch|_red_flag|pat
tern|_constr_of|_of_pat)(?:\W|_))/\1glob_\2/g;s/glob__/glob_/g;s/(\
W)R((?:Prop|Type|Fix|CoFix|StructRec|WfRec|MeasureRec)\W)/\1G\2/g;s
/glob_terms?/glob_constr/g' **/*.ml*
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13756 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index a7fa08f502..f1f5d4c9f3 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -109,7 +109,7 @@ let pr_lconstr_pattern t = let pr_constr_pattern t = pr_constr_pattern_expr (extern_constr_pattern Termops.empty_names_context t) -let pr_sort s = pr_rawsort (extern_sort s) +let pr_sort s = pr_glob_sort (extern_sort s) let _ = Termops.set_print_constr pr_lconstr_env @@ -127,7 +127,7 @@ let pr_constructor env cstr = pr_lconstr_env env (mkConstruct cstr) let pr_evaluable_reference ref = pr_global (Tacred.global_of_evaluable_reference ref) -(*let pr_rawterm t = +(*let pr_glob_constr t = pr_lconstr (Constrextern.extern_glob_constr Idset.empty t)*) (*open Pattern |