From bdacf3d39e9245ce94a53be2747a2f017084a68b Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Wed, 5 Jun 2013 20:54:25 +0200
Subject: [PATCH] inpcom.c, cleanup

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

diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c
index 9c0c436e4..0b4bf8c30 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -697,15 +697,13 @@ inp_readall(FILE *fp, int call_depth, char *dir_name, bool comfile, bool intfile
     }
 
     /* Now clean up li: remove comments & stitch together continuation lines. */
-    working = cc->li_next;      /* cc points to head of deck.  Start with the
-                                   next card. */
 
     /* sjb - strip or convert end-of-line comments.
         This must be cone before stitching continuation lines.
         If the line only contains an end-of-line comment then it is converted
         into a normal comment with a '*' at the start.  This will then get
         stripped in the following code. */
-    inp_stripcomments_deck(working);
+    inp_stripcomments_deck(cc->li_next);
 
     inp_stitch_continuation_lines(cc->li_next);