[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-422-g0e8dea3

[ontologiae]

The following commit has been merged in the master branch:
commit 0e8dea344b359679e271ead5b1af5579785983ad
Author: ontologiae <ontologiae at ordinateur-de-ontologiae.local>
Date:   Thu Aug 20 21:26:21 2009 +0200

    to until do function

diff --git a/lib/number/low_level/numeric.li b/lib/number/low_level/numeric.li
index 76eb248..b4d10a0 100644
--- a/lib/number/low_level/numeric.li
+++ b/lib/number/low_level/numeric.li
@@ -149,6 +149,10 @@ Section Public
     Self
   );
   
+  - else   block:{} <-
+  (
+    block;
+  );
   //
   // Looping.
   //
@@ -188,7 +192,19 @@ Section Public
       (Self - step).downto limit_down by step do blc;
     };
   );
-  
+
+  - to limit_up:SELF until test: {BOOLEAN} do blc:{SELF;} <-
+  // Classical loop from `Self' to `limit_up' until `test' is TRUE
+  (
+    ((Self <= limit_up) && {!test.value}).if {
+    blc.value Self;
+    (Self + 1).to limit_up until test do blc;
+  };
+);
+
+
+
+
   //
   // Function :
   //

-- 
Lisaac compiler