From 775f2c3cca11ab64df713afb7f35363afe5d4ce0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 14 Aug 2011 03:30:48 +0000 Subject: * interp/compiler.boot (compRepeatOrCollect): Set $loopKind directly. (complainIfShadowing): Don't complain when collecting. * algebra/contfrac.spad.pamphlet: Remove capsule-level declaration of local variables. * algebra/cycles.spad.pamphlet: Likewise. * algebra/cyclotom.spad.pamphlet: Likewise. * algebra/ddfact.spad.pamphlet: Likewise. * algebra/fortpak.spad.pamphlet: Likewise. * algebra/lingrob.spad.pamphlet: Likewise. * algebra/numode.spad.pamphlet: Likewise. * algebra/numquad.spad.pamphlet: Likewise. * algebra/out.spad.pamphlet: Likewise. * algebra/perman.spad.pamphlet: Likewise. * algebra/view2D.spad.pamphlet: Likewise. --- src/algebra/cyclotom.spad.pamphlet | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/algebra/cyclotom.spad.pamphlet') diff --git a/src/algebra/cyclotom.spad.pamphlet b/src/algebra/cyclotom.spad.pamphlet index aa7fba78..631476a2 100644 --- a/src/algebra/cyclotom.spad.pamphlet +++ b/src/algebra/cyclotom.spad.pamphlet @@ -43,7 +43,6 @@ CyclotomicPolynomialPackage: public == private where cyclotomicDecomposition(n:Integer):LSUP == x,y,z: SUP l,ll,m: LSUP - rr: Integer g := factors factor(n)$IFP l := [monomial(1,1) - monomial(1,0)] --Now, for each prime in the factorization apply recursion @@ -57,7 +56,6 @@ CyclotomicPolynomialPackage: public == private where l cyclotomicFactorization(n:Integer):FR == - f : SUP fr : FR := 1$FR for f in cyclotomicDecomposition(n) repeat fr := fr * primeFactor(f,1$Integer) -- cgit v1.2.3