diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-27 23:12:39 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-27 23:12:39 +0000 |
| commit | 05662999c9ab0183c0f97fc18579379142ac7b38 (patch) | |
| tree | 884febe28a7728f526583423130d31f3f77b9615 /tactics/extraargs.ml4 | |
| parent | ae9b8392410ceb09e30c90c8863fc24a4c67b376 (diff) | |
Rename the "raw" argument extension into "glob"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13761 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/extraargs.ml4')
| -rw-r--r-- | tactics/extraargs.ml4 | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/tactics/extraargs.ml4 b/tactics/extraargs.ml4 index 76376cd03..6a13ac2a9 100644 --- a/tactics/extraargs.ml4 +++ b/tactics/extraargs.ml4 @@ -101,21 +101,20 @@ let pr_occurrences = pr_occurrences () () () let pr_gen prc _prlc _prtac c = prc c -let pr_rawc _prc _prlc _prtac (_,raw) = Printer.pr_glob_constr raw -let pr_raw = pr_rawc () () () +let pr_globc _prc _prlc _prtac (_,glob) = Printer.pr_glob_constr glob -let interp_raw ist gl (t,_) = (ist,t) +let interp_glob ist gl (t,_) = (ist,t) -let glob_raw = Tacinterp.intern_constr +let glob_glob = Tacinterp.intern_constr -let subst_raw = Tacinterp.subst_glob_constr_and_expr +let subst_glob = Tacinterp.subst_glob_constr_and_expr -ARGUMENT EXTEND raw - PRINTED BY pr_rawc +ARGUMENT EXTEND glob + PRINTED BY pr_globc - INTERPRETED BY interp_raw - GLOBALIZED BY glob_raw - SUBSTITUTED BY subst_raw + INTERPRETED BY interp_glob + GLOBALIZED BY glob_glob + SUBSTITUTED BY subst_glob RAW_TYPED AS constr_expr RAW_PRINTED BY pr_gen |