@@ -1,7 +1,6 @@
open Globals
open Type
open Common
-open Typecore
open DisplayTypes
type relation =
@@ -16,7 +16,6 @@
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*)
-open Globals
open Typecore
@@ -1,6 +1,5 @@
-open DisplayPosition
let default_config defines =
Parser.create_config defines false false DMNone false None
@@ -27,7 +27,6 @@ open DisplayTypes.DisplayMode
open Typeload
open Error
-open Resolution
let get_policy g mpath =
let sl1 = full_dot_path2 mpath mpath in