Better way to kill CamlinternalOO

[xavierbot.git] / init.in

diff --git a/init.in b/init.in
index 68dafc5..972b8d5 100644 (file)
--- a/init.in
+++ b/init.in
@@ -1,5 +1,5 @@
 (* Initialise the toplevel environment. -*- tuareg -*-
- * $Id: init.in,v 1.7 2008/02/13 17:17:31 rjones Exp $
+ * $Id: init.in,v 1.8 2008/02/13 17:35:32 rjones Exp $
  * - Removes the Pervasives module and any dangerous functions.
  * - Loads just the modules we want to give access to, and just
  *   the functions within those modules that we want to give.
@@ -194,12 +194,11 @@ end = struct include Scanf end
 module StringSet = Set.Make(String)
 module StringMap = Map.Make(String)
 
-(* Create an object, so we get the CamlinternalOO module. *)
+(* Create an object, so we get the CamlinternalOO module ... *)
 let _ = object end
 
 (* ... but prevent public access to CamlinternalOO. *)
-module CamlinternalOO : sig
-end = struct end
+module CamlinternalOO = struct end
 
 #load "camlp4o.cma";;
 #load "./pa_noexternal.cmo";;