X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=init.in;h=b419f2c1cae6d4844ed2a4ea7a2cb2ed83a14b3e;hb=999637103a46eed68aa5051dd23f0ce0a3daf92e;hp=5dcc5ab92fb71a73ef7ef1ad02f7ab2efe7bbfae;hpb=d165f93ed79c62a1fa76f391d87ffc4d215b9efe;p=xavierbot.git

diff --git a/init.in b/init.in
index 5dcc5ab..b419f2c 100644
--- a/init.in
+++ b/init.in
@@ -1,5 +1,5 @@
 (* Initialise the toplevel environment.
- * $Id: init.in,v 1.1 2007/06/28 19:47:26 rjones Exp $
+ * $Id: init.in,v 1.2 2007/06/28 23:18:28 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.
@@ -122,6 +122,10 @@ module String : sig
   val compare: t -> t -> int
 end = struct include String end
 
+(* Create an object, so we get the CamlinternalOO module. *)
+(* XXX Are any of the methods unsafe? *)
+let _ = object end
+
 (* Load our custom grammar, which disables "external". *)
 
 #load "camlp4o.cma";;