[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-619-g7853742

[ontologiae]

The following commit has been merged in the master branch:
commit 78537429924ece6fb582081f14f37f2e432e100c
Author: ontologiae <ontologiae at ordinateur-de-ontologiae-3.local>
Date:   Tue Mar 30 18:48:26 2010 +0200

    Add random_between in INTEGER

diff --git a/lib/internal/os_support/unix/video/video.li b/lib/internal/os_support/unix/video/video.li
index a890ce8..7de3616 100644
--- a/lib/internal/os_support/unix/video/video.li
+++ b/lib/internal/os_support/unix/video/video.li
@@ -28,7 +28,7 @@ Section Header
 
   - lip      <-
   (
-    add_lib "-lX11";
+    add_lib "-lX11 -L/usr/X11R6/lib/";
   );
 
   - external :=
@@ -298,4 +298,4 @@ XSetWMNormalHints(display, win, win_size_hints);
 
 // finally, we can free the size hints structure.
 XFree(win_size_hints);
-*/
\ No newline at end of file
+*/
diff --git a/lib/standard/number/integer/integer.li b/lib/standard/number/integer/integer.li
index 567e168..38be838 100644
--- a/lib/standard/number/integer/integer.li
+++ b/lib/standard/number/integer/integer.li
@@ -363,6 +363,18 @@ Section Public
     +? {Result.in_range Self to upper};
   ];
 
+
+   - random_between lower:SELF and  upper:SELF :SELF <-
+  // Random number between `lower' to `upper'.
+  (
+    lower + (upper-lower).random_upper
+  )
+  [
+    +? {Result.in_range lower to upper};
+  ];
+
+
+
   //
   // Looping.
   //

-- 
Lisaac compiler