From cd7e77d21f6da2533d4649629d9912a13fcab48e Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sun, 13 Dec 2015 20:52:15 +0100
Subject: [PATCH] src/frontend/inp.c, avoid warning, drop nested local `wl'

---
 src/frontend/inp.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 9b055425a..f31a8d7ff 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -562,7 +562,6 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
                    available in .control section, in plot 'const' */
                 if (ciprefix(".csparam", dd->li_line)) {
                     wordlist *wlist = NULL;
-                    wordlist *wl = NULL;
                     char *cstoken[3];
                     int i;
                     s = dd->li_line;
@@ -573,8 +572,8 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
                     cstoken[0] = gettok_char(&s, '=', FALSE, FALSE);
                     cstoken[1] = gettok_char(&s, '=', TRUE, FALSE);
                     cstoken[2] = gettok(&s);
-                    for (i = 0; i < 3; i++)
-                        wl_append_word(&wlist, &wl, cstoken[i]);
+                    for (i = 3; --i >= 0;)
+                        wlist = wl_cons(cstoken[i], wlist);
                     com_let(wlist);
                     wl_free(wlist);
                 }