From 7e854f902ac59be33d97ba1b0e8be7de06e219d4 Mon Sep 17 00:00:00 2001
From: kalmarek <kalmar@amu.edu.pl>
Date: Fri, 28 Jun 2019 01:11:27 +0200
Subject: [PATCH] simplify WreathProductElem action on Automorphisms

---
 src/orbitdata.jl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/orbitdata.jl b/src/orbitdata.jl
index 815986d..a49d1d9 100644
--- a/src/orbitdata.jl
+++ b/src/orbitdata.jl
@@ -289,11 +289,10 @@ end
 
 function (g::WreathProductElem)(a::Groups.Automorphism)
     A = parent(a)
-    g = AutFG_emb(A,g)
-    res = A()
-    Groups.r_multiply!(res, g.symbols, reduced=false)
-    Groups.r_multiply!(res, a.symbols, reduced=false)
-    Groups.r_multiply!(res, [inv(s) for s in reverse!(g.symbols)])
+    g_emb = AutFG_emb(A,g)
+    res = deepcopy(g_emb)
+    res = Groups.r_multiply!(res, a.symbols, reduced=false)
+    res = Groups.r_multiply!(res, [inv(s) for s in reverse!(g_emb.symbols)])
     return res
 end