Changeset 164 for trunk/thune/make.c

Timestamp:

06/03/06 19:42:11 (3 years ago)

Author:

krobillard

Message:

Thune -

Added ur_setDatatypeBit() and ur_clrDatatypeBit().
Added 'lift-local and _scanControlStack().
'copy now handles context!.
Renamed ur_copy() as ur_clone().
ur_clone() now holds root block when deep copying.
Removed unused context code.

Files:

• trunk/thune/make.c (modified) (4 diffs)

trunk/thune/make.c

@@ -637 +637 @@
     cell->word.wordBlk = 0;     //GLOBAL_WORD_BLKN;
     cell->word.valBlk  = GLOBAL_VAL_BLKN;
-    cell->word.index   = UR_UNBOUND;
     cell->word.atom    = ur_intern( name, len );
 
@@ -644 +643 @@
         // Add word to global context.
         cell->word.index = ur_internWord( &ur_global, cell->word.atom );
+    }
+    else
+    {
+        cell->word.index = UR_UNBOUND;
     }
 
@@ -816 +819 @@
                     ur_setSeries(res, blkN, 0);
                 }
+            }
+            else if( ur_isABlock(tos) )
+            {
+                ur_copyCell( res, *tos );
+                ur_clone( res, UR_COPY_ALL, 1 );
             }
             break;
@@ -912 +920 @@
                 return;
             }
-            //else if( ur_is(res, UT_CONTEXT) )
-            //{
-            //}
+            else if( ur_is(res, UT_CONTEXT) )
+            {
+                ur_copyCell( res, *tos );
+                ur_clone( res, UR_COPY_ALL, 1 );
+            }
             break;