Changeset 341

Timestamp:

01/07/07 16:56:56 (2 years ago)

Author:

krobillard

Message:

Fixed 'at (thanks to Krzysztof Kowalczyk)
Thune - Added 'appen helper. [0 random] no longer crashes.

Location:

trunk

Files:

• orca/series.c (modified) (1 diff)
• thune/boot.c (modified) (1 diff)
• thune/doc/UserManual (modified) (1 diff)
• thune/math.c (modified) (1 diff)
• thune/mkboot.t (modified) (1 diff)
• thune/series.c (modified) (1 diff)

trunk/orca/series.c

@@ -1117 +1117 @@
         else    // OT_DECIMAL
             n = ((int) orDecimal(a2));
-        if( n == 1 )
-            n = 0;
+        if( n > 0 )
+            --n;
     }
 

trunk/thune/boot.c

@@ -172 +172 @@
   "[0 swap add] proc :to-dec\n"
   "[rot minimum maximum] proc :limit   ; (n min max -- n)\n"
+  "[append drop] proc :appen\n"
   "[blk | ctx num word]\n"
   "[\n"

trunk/thune/doc/UserManual

@@ -385 +385 @@
 ==========  ======================  =================
 empty?      (ser -- logic)          Same as tail?.
+appen       (ser val -- )           Append and drop.
 map         (ser comb -- )          Transform each element of a series.
 split-path  (full -- path file)     Split full path into path & file.

trunk/thune/math.c

@@ -541 +541 @@
     else if( ur_is(tos, UT_INT) )
     {
-        ur_int(tos) = (genrand_int32() % ur_int(tos)) + 1;
+        if( ur_int(tos) > 0 )
+            ur_int(tos) = (genrand_int32() % ur_int(tos)) + 1;
     }
     else if( ur_isASeries( tos ) )

trunk/thune/mkboot.t

@@ -199 +199 @@
 [rot minimum maximum] proc :limit   ; (n min max -- n)
 
+[append drop] proc :appen
+
 [blk | ctx num word]
 [

trunk/thune/series.c

@@ -1847 +1847 @@
         else    // UT_DECIMAL
             n = (int) ur_decimal(tos);
-        if( n == 1 )
-            n = 0;
+        if( n > 0 )
+            --n;
     }