REBASE: spelling and indentantion.

lib/norad.gi

@@ -552,7 +552,7 @@ local sus,ser,len,factorhom,uf,n,d,up,mran,nran,mpcgs,pcgs,pcisom,nf,ng,np,sub,
 	# work in quotient modules first
 	module:=GModuleByMats(Concatenation(ngm,npm),f);
 	sumos:=Reversed(MTX.BasesCompositionSeries(module));
-        Info(InfoFitFree,2,"module layers ",List(sumos,Length));
+  Info(InfoFitFree,2,"module layers ",List(sumos,Length));
 	sumos:=sumos{[2..Length(sumos)]};
 
 	for fs in sumos do
@@ -848,7 +848,7 @@ local sus,ser,len,factorhom,uf,n,d,up,mran,nran,mpcgs,pcgs,pcisom,nf,ng,np,sub,
 	      return l;
 	    end;
 
-	    # as corrections involve only pcgs parts, the images inthe
+	    # as corrections involve only pcgs parts, the images in the
 	    # radical factor are not affected.
 	    ng:=List(ng,x->x/PcElementByExponents(famo,
 	      SolutionMat(boundbas,myact(sub,x))));
@@ -914,7 +914,8 @@ local sus,ser,len,factorhom,uf,n,d,up,mran,nran,mpcgs,pcgs,pcisom,nf,ng,np,sub,
         bound:=List(bound,Zero);
         bound:=Basis(VectorSpace(f,bound));
 
-  #if
+        #TODO: unify with later code, requires slight change in print statement
+        # and action
         Info(InfoFitFree,2,"up 0:", " on ",
           Product(RelativeOrders(lfamo))," cobounds:",Size(f)^Length(bound));
 
@@ -958,8 +959,7 @@ local sus,ser,len,factorhom,uf,n,d,up,mran,nran,mpcgs,pcgs,pcisom,nf,ng,np,sub,
 
           l:=Concatenation(l);
           l:=SiftedVector(bound,l);
-          ConvertToVectorRep(l,Size(f));
-          MakeImmutable(l);
+          l:=ImmutableVector(f,l);
           return l;
         end;
         sub:=myact(sub,One(np[1])); # standardize -- force compression
@@ -1023,7 +1023,7 @@ local sus,ser,len,factorhom,uf,n,d,up,mran,nran,mpcgs,pcgs,pcisom,nf,ng,np,sub,
             return l;
           end;
 
-          # as corrections involve only pcgs parts, the images inthe
+          # as corrections involve only pcgs parts, the images in the
           # radical factor are not affected.
           ng:=List(ng,x->x/PcElementByExponents(famo,
             SolutionMat(boundbas,myact(sub,x))));