update getperm

2017-05-12 20:08:27 +02:00 · 2017-05-12 20:08:27 +02:00 · 39d64b7e69
parent f6f2258629
commit 39d64b7e69
1 changed files with 6 additions and 5 deletions
--- a/src/automorphism_groups.jl
+++ b/src/automorphism_groups.jl
@ -74,11 +74,12 @@ function perm_autsymbol(p::perm; pow::Int=1)
 end

 function getperm(s::AutSymbol)
-    if s.ex.args[1] == :σ
-        return s.ex.args[2]
-    else
-        throw(ArgumentError("$s is not a permutation automorphism!"))
-    end
+   if s.ex.args[1] == :σ
+      p = s.ex.args[2]
+      return PermutationGroup(length(p))(p)
+   else
+      throw(ArgumentError("$s is not a permutation automorphism!"))
+   end
 end

 function AutGroup(G::FPGroup; outer=false, special=false)