(* 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.
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";;