From a4e0b821b9e40669539f70520173929e2c824e83 Mon Sep 17 00:00:00 2001
From: kalmarek <kalmar@amu.edu.pl>
Date: Wed, 7 Oct 2020 02:38:22 +0200
Subject: [PATCH] use rmul!/lmul! in the definitions of R/LTransvect

---
 src/AutGroup.jl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/AutGroup.jl b/src/AutGroup.jl
index dc4e406..4223ff9 100644
--- a/src/AutGroup.jl
+++ b/src/AutGroup.jl
@@ -167,14 +167,12 @@ end
 #
 
 function (ϱ::RTransvect)(v, pow::Integer=1)
-    append!(v[ϱ.i], v[ϱ.j]^pow)
-    freereduce!(v[ϱ.i])
+    rmul!(v[ϱ.i], v[ϱ.j]^pow)
     return v
 end
 
 function (λ::LTransvect)(v, pow::Integer=1)
-    prepend!(v[λ.i], v[λ.j]^pow)
-    freereduce!(v[λ.i])
+    lmul!(v[λ.i], v[λ.j]^pow)
     return v
 end