Changeset 152 for trunk/thune/gc.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/gc.c (modified) (2 diffs)

trunk/thune/gc.c

@@ -217 +217 @@
             case UT_SETWORD:
             //case UT_LITWORD:      // Only atom is used in lit-words?
-                SET_BIT_BLOCK( it->word.wordBlk );
+                if( it->word.wordBlk )
+                {
+                    SET_BIT_BLOCK( it->word.wordBlk );
+                }
                 SET_BIT_BLOCK( it->word.valBlk );
                 break;
@@ -401 +404 @@
 
             case CC_ITER:
+            case CC_FOREACH:
                 it -= CC_LEN_ITER;
                 break;