From 9606a1474353caba739a51780c10f85a1da3da57 Mon Sep 17 00:00:00 2001
From: kalmar <kalmar@amu.edu.pl>
Date: Mon, 15 May 2017 17:23:23 +0200
Subject: [PATCH] finish reduce if both simplify_perms! and free_reduce! return
 true

---
 src/AutGroup.jl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/AutGroup.jl b/src/AutGroup.jl
index d84c56a..de918b8 100644
--- a/src/AutGroup.jl
+++ b/src/AutGroup.jl
@@ -282,8 +282,7 @@ function reduce!(W::AutGroupElem)
     else
         reduced = false
         while !reduced
-            reduced = simplify_perms!(W)
-            reduced = join_free_symbols!(W)
+            reduced = simplify_perms!(W) && free_reduce!(W)
             deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
         end
     end