src/frontend/inp.c, avoid warning, drop nested local `wl'

This commit is contained in:
rlar 2015-12-13 20:52:15 +01:00
parent d47f073550
commit cd7e77d21f
1 changed files with 2 additions and 3 deletions

View File

@ -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);
}