From 5ad8382cf1db877de4884c01bd18abc1e3ea7154 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Tue, 31 Jul 2012 20:40:01 +0200
Subject: [PATCH] lexical #11/19, aproach `append' here

---
 src/frontend/parser/lexical.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/frontend/parser/lexical.c b/src/frontend/parser/lexical.c
index 9409372b6..bb07c1400 100644
--- a/src/frontend/parser/lexical.c
+++ b/src/frontend/parser/lexical.c
@@ -133,7 +133,15 @@ nloop:
     paren = 0;
     bzero(linebuf, NEW_BSIZE_SP);
     bzero(buf, NEW_BSIZE_SP);
-    wlist = cw = wl_cons(NULL, NULL);
+    // note: wlist == NULL and cw == NULL
+    {   wordlist *aux = wl_cons(NULL, NULL);
+        if (cw)  /* which is false here */
+           cw->wl_next = aux;
+        aux->wl_prev = cw;
+        cw = aux;
+        if (!wlist) /* which is true here */
+            wlist = cw;
+    }
     // from here on cw != NULL and wlist != NULL
     for (;;) {
         if (string) {