Changeset 152 for trunk/thune/context.c

Timestamp:

05/14/06 02:10:45 (3 years ago)

Author:

krobillard

Message:

Thune -
'do now dispatches function!, call!, & code!
'as handles all word types.
'index? returns atom if TOS is a word.
Started implementing 'foreach.
true & false are now infused.
Fixed unitialized word.wordBlk and leak in ur_tokenize().

Files:

• trunk/thune/context.c (modified) (3 diffs)

trunk/thune/context.c

@@ -168 +168 @@
 
     ur_setType( it, UT_WORD );
-    //it->word.wordBlk = ctx->ctx.wordBlk;
+    it->word.wordBlk = 0;       //ctx->ctx.wordBlk;
     it->word.valBlk  = ctx->ctx.valBlk;
     it->word.index   = wrdN;
@@ -495 +495 @@
     while( it != end )
     {
-        if( ur_is(it, UT_WORD) ||
-            ur_is(it, UT_SETWORD) ||
-            ur_is(it, UT_GETWORD) ||
-            ur_is(it, UT_LITWORD) ||
-            ur_is(it, UT_OPCODE) )
+        if( ur_isAWord(it) || ur_is(it, UT_OPCODE) || ur_is(it, UT_SELECTOR) )
         {
             _bindWord( it );
@@ -506 +502 @@
         {
             UCell* path1 = ur_blockPtr( it->series.n )->ptr.cells;
-            if( ur_is(path1, UT_WORD) ||
-                ur_is(path1, UT_SETWORD) ||
-                ur_is(path1, UT_GETWORD) )
+            if( ur_isAWord(path1) )
             {
                 _bindWord( path1 );