X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=init;h=246299d523d9e45677021000c2e4f7164f088d3a;hb=7284e449020e378b49e345a14fe6a0342420800d;hp=178497fe563206030a7526ebb6cc88d5f9469380;hpb=1404efcc8dc5e7bebfcd3af1b1cd03ffdd169cae;p=xavierbot.git

diff --git a/init b/init
index 178497f..246299d 100644
--- a/init
+++ b/init
@@ -1,5 +1,5 @@
 (* Initialise the toplevel environment. -*- tuareg -*-
- * $Id: init,v 1.7 2007/06/29 21:43:21 rjones Exp $
+ * $Id: init,v 1.9 2008/02/01 15:25:16 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.
@@ -60,9 +60,11 @@ let _ = Complex.zero
 let _ = Hashtbl.create
 let _ = Int32.to_string
 let _ = Int64.to_string
+let _ = Lazy.force
 let _ = List.length
 let _ = Nativeint.to_string
 let _ = Num.add_num
+let _ = Random.int
 let _ = Ratio.null_denominator
 let _ = Stack.create
 let _ = Str.regexp