Changeset 462

Timestamp:

08/28/07 20:48:54 (1 year ago)

Author:

krobillard

Message:

Pick handles select!.

Files:

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

trunk/thune/series.c

@@ -1475 +1475 @@
-    switch( ur_type(ser) )
-    {
+        case UT_SELECT:
+        case UT_SETSELECT:
+        case UT_LITSELECT:
+            if( n == 0 )
+            {
+                if( ser != result )
+                {
+                    ur_copyCell( result, *ser );
+                }
+                ur_type(result) = UT_WORD;
+                return 1;
+            }
+            else if( n == 1 )
+            {
+                n = ur_sel(ser);
+                if( ur_selIsAtom(ser) )
+                {
+                    ur_initType( result, UT_WORD );
+                    ur_setUnbound( result, n );
+                }
+                else
+                {
+                    ur_initType( result, UT_INT );
+                    ur_int(result) = n;
+                }
+                return 1;
+            }
+            break;
+
-        case UT_COORD:
-            if( ((unsigned int) n) < ser->coord.len )