diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-09 00:47:46 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-09 00:54:09 +0200 |
commit | a6cd6948fa592f21b67916f423fe2adb62085492 (patch) | |
tree | cb4783153f70f6ff3fd3aeb1cf237d0912e59eb5 /ide | |
parent | 7045848145c16d978456aab2edd192c54d242e69 (diff) |
Removing the last uses of Pptactic in the lower layers.
Diffstat (limited to 'ide')
-rw-r--r-- | ide/richprinter.ml | 1 | ||||
-rw-r--r-- | ide/texmacspp.ml | 4 |
2 files changed, 0 insertions, 5 deletions
diff --git a/ide/richprinter.ml b/ide/richprinter.ml index 5f39f36ea..995cef1ac 100644 --- a/ide/richprinter.ml +++ b/ide/richprinter.ml @@ -2,7 +2,6 @@ open Richpp module RichppConstr = Ppconstr.Richpp module RichppVernac = Ppvernac.Richpp -module RichppTactic = Pptactic.Richpp type rich_pp = Ppannotation.t Richpp.located Xml_datatype.gxml diff --git a/ide/texmacspp.ml b/ide/texmacspp.ml index 458e84835..328ddd0cd 100644 --- a/ide/texmacspp.ml +++ b/ide/texmacspp.ml @@ -127,10 +127,6 @@ let xmlProofMode loc name = xmlWithLoc loc "proofmode" ["name",name] [] let xmlProof loc xml = xmlWithLoc loc "proof" [] xml -let xmlRawTactic name rtac = - Element("rawtactic", ["name",name], - [PCData (Pp.string_of_ppcmds (Pptactic.pr_raw_tactic rtac))]) - let xmlSectionSubsetDescr name ssd = Element("sectionsubsetdescr",["name",name], [PCData (Proof_using.to_string ssd)]) |