From d61f3c10a0a5d4980e2cd7d5342dfbeb0a6885e5 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Tue, 31 Jul 2012 20:39:56 +0200
Subject: [PATCH] lexical #10/19, split off `append' from `newword'

---
 src/frontend/parser/lexical.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/frontend/parser/lexical.c b/src/frontend/parser/lexical.c
index ecea8fd3b..9409372b6 100644
--- a/src/frontend/parser/lexical.c
+++ b/src/frontend/parser/lexical.c
@@ -74,7 +74,7 @@ static int numeofs = 0;
  * have no business being in the string.
  */
 
-#define newword cw->wl_word = copy(buf); \
+#define append \
     {   wordlist *aux = wl_cons(NULL, NULL); \
         if (cw)  /* which is true here */ \
            cw->wl_next = aux; \
@@ -82,7 +82,10 @@ static int numeofs = 0;
         cw = aux; \
         if (!wlist) /* which is false here */ \
             wlist = cw; \
-    } \
+    }
+
+#define newword cw->wl_word = copy(buf); \
+        append; \
         bzero(buf, NEW_BSIZE_SP); \
         i = 0;