diff options
| author | ppedrot | 2013-02-10 17:40:19 +0000 |
|---|---|---|
| committer | ppedrot | 2013-02-10 17:40:19 +0000 |
| commit | 846879625d0f51457fc9fb51d7e936548de16dcf (patch) | |
| tree | 66cc5bab3acf7f8f7fe80b6cab7c205a7c8ce181 /printing | |
| parent | ce0176d8c25aa353c06b1f8f56ead63f28fb6efc (diff) | |
Useless use of hooks in VernacDefinition. In addition, this was
polluting the AST first-order structure.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16196 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index c04b99c5d9..14ca732a4e 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -585,7 +585,7 @@ let rec pr_vernac = function pr_syntax_modifiers l (* Gallina *) - | VernacDefinition (d,id,b,f) -> (* A verifier... *) + | VernacDefinition (d,id,b) -> (* A verifier... *) let pr_def_token dk = str (Kindops.string_of_definition_kind dk) in let pr_reduce = function | None -> mt() @@ -608,7 +608,7 @@ let rec pr_vernac = function | None -> mt() | Some cc -> str" :=" ++ spc() ++ cc)) - | VernacStartTheoremProof (ki,l,_,_) -> + | VernacStartTheoremProof (ki,l,_) -> hov 1 (pr_statement (pr_thm_token ki) (List.hd l) ++ prlist (pr_statement (spc () ++ str "with")) (List.tl l)) |