From 247767e3bfbf4c656a34080b36fc911a3c48d948 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sat, 26 Dec 2015 18:59:48 +0100
Subject: [PATCH] frontend/device.c, com_alter_common(), #4/11 rewrite while()
 loop

---
 src/frontend/device.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/frontend/device.c b/src/frontend/device.c
index 808fe7155..a178743b1 100644
--- a/src/frontend/device.c
+++ b/src/frontend/device.c
@@ -1330,15 +1330,14 @@ com_alter_common(wordlist *wl, int do_model)
         type &= IF_VARTYPES;
         if (type == IF_REALVEC) {
             list = TMALLOC(double, 1);
-            tmp = INPevaluate(&xsbuf, &error, 1);
             for (;;) {
+                tmp = INPevaluate(&xsbuf, &error, 1);
                 if (error)
                     break;
                 /*printf(" returning vector value %g\n", tmp); */
                 i++;
                 list = TREALLOC(double, list, i);
                 list[i-1] = tmp;
-                tmp = INPevaluate(&xsbuf, &error, 1);
             }
             dv->v_realdata = list;
         }