diff options
| author | letouzey | 2012-10-02 15:58:00 +0000 |
|---|---|---|
| committer | letouzey | 2012-10-02 15:58:00 +0000 |
| commit | 85c509a0fada387d3af96add3dac6a7c702b5d01 (patch) | |
| tree | 4d262455aed52c20af0a9627d47d29b03ca6523d /printing/pptactic.ml | |
| parent | 3415801b2c368ce03f6e8d33a930b9ab9e0b9fd1 (diff) | |
Remove some more "open" and dead code thanks to OCaml4 warnings
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15844 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 8bdea1356b..d16035fba0 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -220,7 +220,6 @@ let rec pr_glob_generic prc prlc prtac prpat x = try pi2 (Stringmap.find s !genarg_pprule) prc prlc prtac x with Not_found -> str "[no printer for " ++ str s ++ str "]" - let rec pr_generic prc prlc prtac prpat x = match Genarg.genarg_tag x with | BoolArgType -> str (if out_gen wit_bool x then "true" else "false") @@ -549,7 +548,6 @@ let linfo = 5 let level_of (n,p) = match p with E -> n | L -> n-1 | Prec n -> n | Any -> lseq - (** A printer for tactics that polymorphically works on the three "raw", "glob" and "typed" levels; in practice, the environment is used only at the glob and typed level: it is used to feed the |