diff options
| author | regisgia | 2012-09-14 15:59:23 +0000 |
|---|---|---|
| committer | regisgia | 2012-09-14 15:59:23 +0000 |
| commit | 6dae53d279afe2b8dcfc43dd2aded9431944c5c8 (patch) | |
| tree | 716cb069d32317bdc620dc997ba6b0eb085ffbdd /printing/pptactic.ml | |
| parent | 0affc36749655cd0a906af0c0aad64fd350d4fec (diff) | |
This patch removes unused "open" (automatically generated from
compiler warnings).
I was afraid that such a brutal refactoring breaks some obscure
invariant about linking order and side-effects but the standard
library still compiles.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15800 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 50baf36f8a..7118388cb9 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 "]" -open Closure let rec pr_generic prc prlc prtac prpat x = match Genarg.genarg_tag x with @@ -543,7 +542,6 @@ let linfo = 5 let level_of (n,p) = match p with E -> n | L -> n-1 | Prec n -> n | Any -> lseq -open Closure (** A printer for tactics that polymorphically works on the three "raw", "glob" and "typed" levels; in practice, the environment is |