fixup! attempt to make vector and matrix objects official

gap-system · Nov 22, 2019 · d62557d · d62557d
1 parent d418603
commit d62557d
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/hpcgap/lib/upolyirr.gi b/hpcgap/lib/upolyirr.gi
@@ -99,15 +99,17 @@ end;
 
 #############################################################################
 ##
-#F CompanionMat( <poly>
+#M CompanionMatrix( <poly> )
+#M CompanionMatrix( <coeffs> )
 ##
-InstallGlobalFunction( CompanionMat, function ( arg )
-
+InstallMethod( CompanionMatrix,
+ [ IsObject ],
+ function( obj )
  local c, l, res, i, F, c1;
 
  # for the moment allow coefficients as well
- if not IsList( arg[1] ) then
- c := CoefficientsOfLaurentPolynomial( arg[1] );
+ if not IsList( obj ) then
+ c := CoefficientsOfLaurentPolynomial( obj );
  if c[2] < 0 then
  Error( "This polynomial does not have a companion matrix" );
  fi;
@@ -116,7 +118,7 @@ InstallGlobalFunction( CompanionMat, function ( arg )
  Append( c1, c[1] );
  c:= c1;
  else
- c := arg[1];
+ c := obj;
  F:= DefaultField( c ); 
  fi;
 
@@ -132,6 +134,7 @@ InstallGlobalFunction( CompanionMat, function ( arg )
  od;
  return res;
 end );
+
 
 #############################################################################
 ##