X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=init.in;fp=init.in;h=a42d9353c1e912a57af90400602ae00154a57ef2;hb=62c2a700f26885ebc8462788f524547a018d56fc;hp=bc41e7259209f96ec39d502c613df58d465cd45e;hpb=5648f9a1f439de689fa51ea8de3833449faf25a1;p=xavierbot.git

diff --git a/init.in b/init.in
index bc41e72..a42d935 100644
--- a/init.in
+++ b/init.in
@@ -1,5 +1,5 @@
 (* Initialise the toplevel environment. -*- tuareg -*-
- * $Id: init.in,v 1.4 2007/06/29 19:39:13 rjones Exp $
+ * $Id: init.in,v 1.5 2008/01/23 15:44:46 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.
@@ -63,6 +63,7 @@ let _ = Int64.to_string
 let _ = List.length
 let _ = Nativeint.to_string
 let _ = Num.add_num
+let _ = Random.int
 let _ = Ratio.null_denominator
 let _ = Stack.create
 let _ = Str.regexp