frontend/device.c, com_alter_common(), #7/11 reorder

src/frontend/device.c

@@ -1321,12 +1321,6 @@ com_alter_common(wordlist *wl, int do_model)
             words = words->wl_next;
         xsbuf = rem_xsbuf = wl_flatten(words);
         /* fprintf(cp_err, "Chain    converted  %s \n", xsbuf); */
-        dv = TMALLOC(struct dvec, 1);
-        if (!dv)
-            return;
-        dv->v_name = copy("real vector");
-        dv->v_type = SV_NOTYPE;
-        dv->v_flags = VF_REAL;
             list = TMALLOC(double, 1);
             for (;;) {
                 tmp = INPevaluate(&xsbuf, &error, 1);
@@ -1336,6 +1330,12 @@ com_alter_common(wordlist *wl, int do_model)
                 list = TREALLOC(double, list, i + 1);
                 list[i++] = tmp;
             }
+            dv = TMALLOC(struct dvec, 1);
+            if (!dv)
+                return;
+            dv->v_name = copy("real vector");
+            dv->v_type = SV_NOTYPE;
+            dv->v_flags = VF_REAL;
             dv->v_realdata = list;
         dv->v_length = i;