[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-422-g0e8dea3
ontologiae
ontologiae at ordinateur-de-ontologiae.local
Thu Aug 20 19:26:54 UTC 2009
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
More information about the Lisaac-commits
mailing list