use rmul!/lmul! in the definitions of R/LTransvect

2020-10-07 02:38:22 +02:00 · 2020-10-07 02:38:22 +02:00 · a4e0b821b9
parent 8532767170
commit a4e0b821b9
1 changed files with 2 additions and 4 deletions
--- 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