Changeset 463 for trunk/thune/eval.c

Timestamp:

08/29/07 15:49:50 (15 months ago)

Author:

krobillard

Message:

Mark.eol now works on any datatype.

Files:

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

trunk/thune/eval.c

@@ -1595 +1595 @@
 
 // (block -- block)
-UR_CALL( uc_mark_eol )
+UR_CALL( uc_mark_sol )
 {
     UBlock* blk;
@@ -1611 +1611 @@
         }
     }
-#if 0
     else
     {
-        tos = ur_s_prev(tos);
-        if( ur_is(tos, UT_BLOCK) || ur_is(tos, UT_PAREN) )
-        {
-            blk = ur_block(tos);
-            if( blk->ptr.cells )
-            {
-                cell = blk->ptr.cells + tos->series.it;
-                cell->id.flags |= UR_FLAG_BLOCK_SOL;
-            }
-            UR_S_DROP;
-        }
-    }
-#endif
+        tos->id.flags |= UR_FLAG_SOL;
+    }
 }
 
@@ -1743 +1731 @@
     { uc_recycle,      "recycle" },
     { uc_to_hex,       "to-hex" },
-    { uc_mark_eol,     "mark.eol" },
+    { uc_mark_sol,     "mark.eol" },
     { uc_hash,         "hash" },
     { uc_encode,       "encode" },