From 6ae234cabbe64560c62b6d471901ad69446a23b3 Mon Sep 17 00:00:00 2001
From: kalmar <kalmar@amu.edu.pl>
Date: Thu, 11 May 2017 17:52:14 +0200
Subject: [PATCH] move deletion of identities into free_reduce

---
 src/Groups.jl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Groups.jl b/src/Groups.jl
index 03db31c..8b5b276 100644
--- a/src/Groups.jl
+++ b/src/Groups.jl
@@ -52,6 +52,7 @@ function free_reduce!(W::GWord)
             W.symbols[i] = one(W.symbols[i])
         end
     end
+    deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
     return reduced
 end
 
@@ -62,7 +63,6 @@ function reduce!{T}(W::GWord{T})
         reduced = false
         while !reduced
             reduced = free_reduce!(W)
-            deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
         end
     end