Changeset 539 for trunk

Timestamp:

06/21/08 16:32:56 (5 months ago)

Author:

krobillard

Message:

Removed appen.
eq? and same? work on datatype!.

Location:

trunk/thune

Files:

• boot.c (modified) (1 diff)
• doc/UserManual (modified) (1 diff)
• eval.c (modified) (3 diffs)
• mkboot.t (modified) (1 diff)

trunk/thune/boot.c

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

trunk/thune/doc/UserManual

@@ -494 +494 @@
 ===========  ======================  =================
 empty?       (ser -- logic)          Same as tail?.
-appen        (ser val -- )           Append and drop.
 map          (ser comb -- )          Transform each element of a series.
 replace.all  (ser old new -- ser)    Find & Replace 

trunk/thune/eval.c

@@ -557 +557 @@
     switch( ur_type(a) )
     {
+        case UT_DATATYPE:
+            if( ur_is(b, UT_DATATYPE) )
+            {
+                if( (a->dt.mask0 == b->dt.mask0) &&
+                    (a->dt.mask1 == b->dt.mask1) )
+                    return 1;
+            }
+            break;
+
         case UT_NONE:
             if( ur_is(b, UT_NONE) )
@@ -772 +781 @@
     switch( ur_type(a) )
     {
+        case UT_DATATYPE:
+            if( (a->dt.mask0 == b->dt.mask0) &&
+                (a->dt.mask1 == b->dt.mask1) )
+                return 1;
+            break;
+
         case UT_NONE:
             return 1;
@@ -887 +902 @@
     ur_initType(tos, UT_DATATYPE);
     ur_datatype(tos) = t;
+    ur_setDatatypeMask(tos, t);
 }
 

trunk/thune/mkboot.t

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