diff options
| author | aspiwack | 2007-11-09 17:37:11 +0000 |
|---|---|---|
| committer | aspiwack | 2007-11-09 17:37:11 +0000 |
| commit | a2c53cc24077ec911877d9c12e22819b27c516c8 (patch) | |
| tree | f68db29a55b0617703e8cfda523d76c37a8ef58d /parsing | |
| parent | 471df7db322e77a3cb66a8def53c7ddfdb9c8769 (diff) | |
Nettoyage de Print Assumptions :
- Le code est maintenant mieux commenté.
- J'ai aussi réorganisé un petit peu pour le rendre plus léger, mais
presque rien
- j'ai changé les noms internes : needed_assumptions devient
assumptions et PrintNeededAssumptions devient PrintAssumptions
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10311 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 2 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index b7cde536f7..a64cf74cc7 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -634,7 +634,7 @@ GEXTEND Gram | IDENT "Visibility"; s = OPT IDENT -> PrintVisibility s | IDENT "Implicit"; qid = global -> PrintImplicit qid | IDENT "Universes"; fopt = OPT ne_string -> PrintUniverses fopt - | IDENT "Assumptions"; qid = global -> PrintNeededAssumptions qid ] ] + | IDENT "Assumptions"; qid = global -> PrintAssumptions qid ] ] ; class_rawexpr: [ [ IDENT "Funclass" -> FunClass diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 4bb7d27520..a5bcea6f1b 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -834,7 +834,7 @@ let rec pr_vernac = function | PrintImplicit qid -> str"Print Implicit" ++ spc() ++ pr_reference qid (* spiwack: command printing all the axioms and section variables used in a term *) - | PrintNeededAssumptions qid -> str"Print Assumptions"++spc()++pr_reference qid + | PrintAssumptions qid -> str"Print Assumptions"++spc()++pr_reference qid in pr_printable p | VernacSearch (sea,sea_r) -> pr_search sea sea_r pr_pattern_expr | VernacLocate loc -> |