From 587113e5cfddef2fd26a3e416560a500f129d7e0 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sat, 14 Jun 2014 15:22:06 -0400
Subject: [PATCH] Parser

- ::findPattern removes unnecessarily lexed sub-branches.
---
 src/Parser.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Parser.cpp b/src/Parser.cpp
index 18e9b72d9..d3738eb37 100644
--- a/src/Parser.cpp
+++ b/src/Parser.cpp
@@ -704,6 +704,7 @@ void Parser::findPattern ()
         pattern.length () > 0)
     {
       (*i)->unTag ("?");
+      (*i)->removeAllBranches ();
       (*i)->tag ("PATTERN");
 
       Tree* branch = (*i)->addBranch (new Tree ("argPat"));