Changeset 400 for branches/thune

Timestamp:

05/28/07 05:18:08 (18 months ago)

Author:

krobillard

Message:

Thune - Can now pass vector! type to 'make.

Files:

• branches/thune/thread_safe/make.c (modified) (2 diffs)

branches/thune/thread_safe/make.c

@@ -1342 +1342 @@
   (select! word sel -- value)
   (context block -- value)
+  (vector! count type -- value)
 */
 UR_CALL_PUB( uc_make )
@@ -1727 +1728 @@
         case UT_VECTOR:
         {
+#ifdef LANG_THUNE
+            if( argc == 2 )
+            {
+                if( !  ur_makeVectorCell( ut, ur_s_prev(tos), res ) )
+                    goto error;
+                if( ur_is(tos, UT_WORD) && (ur_atom(tos) == UT_DECIMAL) )
+                    ur_vectorDT(res) = UT_DECIMAL;
+            }
+            else
+#endif
+            {
             // Make array before setting res in case GC is called.
             if( !  ur_makeVectorCell( ut, tos, res ) )
                 goto error;
+            }
         }
             break;