Changeset 498 for trunk/thune/thune.c

Timestamp:

11/14/07 17:18:50 (12 months ago)

Author:

krobillard

Message:

Fixed bug in reverse 'iter when series had one element.

Files:

• trunk/thune/thune.c (modified) (2 diffs)

trunk/thune/thune.c

@@ -609 +609 @@
 
                 case OP_ITER:           // (series blk -- )
-                    if( ur_is(UR_TOS, UT_BLOCK) )
+                    if( ur_is(UR_TOS, UT_BLOCK) &&
+                        (ur_itLen( ut, ur_s_prev(UR_TOS) ) > 0) )
                     {
                         int skip = ur_sel(val);
                         if( skip == 0 )
                             skip = 1;
-                        if( skip > 0 )
-                        {
-                            if( ur_itLen( ut, ur_s_prev(UR_TOS) ) < 1 )
-                                goto no_iter;
-                        }
-                        else
-                        {
-                            if( ur_s_prev(UR_TOS)->series.it < 1 )
-                                goto no_iter;
-                        }
                         PUSHC_EVAL( blkN, start, pc );
                         SET_BLK_PC( UR_TOS->series.n,
@@ -634 +625 @@
                     else
                     {
-no_iter:
                         UR_S_DROPN(2);
                     }