Changeset 256 for trunk/thune/eval.c

Timestamp:

08/23/06 22:57:23 (2 years ago)

Author:

krobillard

Message:

Thune - Selected values are now evaluated.

Files:

• trunk/thune/eval.c (modified) (1 diff)

trunk/thune/eval.c

@@ -1050 +1050 @@
 
         case UT_SELECT:
-            // TODO: select! needs to call functions, block on unset, etc.
-            if( ! ur_getSelector( ur_thread, val, UR_S_GROW ) )
+        {
+            // Selected value gets put in reserve area at end of stack.
+            UCell* sval = ur_s_next( ur_thread->eos );
+
+            if( ! ur_getSelector( ur_thread, val, sval ) )
             {
                 _appendTraceBlk( &UR_TOS->err, blkN, pc - start - 1 );
                 goto throw_cc;
             }
-            break;
+            val = sval;
+            if( ur_is(sval, UT_SELECT) )
+                goto push_val;
+        }
+            goto do_val;
 
         case UT_SETSELECT: