From adfd437f8ae6aaf893119fa4730edecf067dede7 Mon Sep 17 00:00:00 2001 From: Pierre Letouzey Date: Wed, 5 Mar 2014 14:59:16 +0100 Subject: Remove many superfluous 'open' indicated by ocamlc -w +33 With ocaml 4.01, the 'unused open' warning also checks the mli :-) Beware: some open are reported as useless when compiling with camlp5, but are necessary for compatibility with camlp4. These open are now marked with a comment. --- ide/gtk_parsing.ml | 2 -- ide/preferences.ml | 1 - ide/utils/editable_cells.ml | 1 - ide/wg_ScriptView.ml | 4 ---- 4 files changed, 8 deletions(-) (limited to 'ide') diff --git a/ide/gtk_parsing.ml b/ide/gtk_parsing.ml index 05b638a941..f3bb2a2ed4 100644 --- a/ide/gtk_parsing.ml +++ b/ide/gtk_parsing.ml @@ -6,8 +6,6 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -open Ideutils - let underscore = Glib.Utf8.to_unichar "_" ~pos:(ref 0) let arobase = Glib.Utf8.to_unichar "@" ~pos:(ref 0) let prime = Glib.Utf8.to_unichar "'" ~pos:(ref 0) diff --git a/ide/preferences.ml b/ide/preferences.ml index d9a9d0e3a2..585dce21f4 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -7,7 +7,6 @@ (************************************************************************) open Configwin -open Printf let pref_file = Filename.concat (Minilib.coqide_config_home ()) "coqiderc" let accel_file = Filename.concat (Minilib.coqide_config_home ()) "coqide.keys" diff --git a/ide/utils/editable_cells.ml b/ide/utils/editable_cells.ml index 1ab107c778..33968b8dd0 100644 --- a/ide/utils/editable_cells.ml +++ b/ide/utils/editable_cells.ml @@ -1,4 +1,3 @@ -open GTree open Gobject let create l = diff --git a/ide/wg_ScriptView.ml b/ide/wg_ScriptView.ml index de378c074e..a1a429789d 100644 --- a/ide/wg_ScriptView.ml +++ b/ide/wg_ScriptView.ml @@ -6,10 +6,6 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -open Ideutils -open GText -open Gtk_parsing - type insert_action = { ins_val : string; ins_off : int; -- cgit v1.2.3