1(*
2    Copyright (c) 2000
3        Cambridge University Technical Services Limited
4
5    This library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public
7    License as published by the Free Software Foundation; either
8    version 2.1 of the License, or (at your option) any later version.
9    
10    This library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14    
15    You should have received a copy of the GNU Lesser General Public
16    License along with this library; if not, write to the Free Software
17    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
18*)
19
20(* Clean up the name space by removing unnecessary declarations. *)
21
22val _ = List.app PolyML.Compiler.forgetStructure
23   [ "Base", "ComboBase", "FontBase", "MenuBase", "ScrollBase", "WinBase",
24     "MessageBase", "GdiBase", "DeviceBase", "LocaleBase" ];
25
26val _ = List.app PolyML.Compiler.forgetFunctor ["FlagPrint"];
27
28