diff options
Diffstat (limited to 'src/algebra/npcoef.spad.pamphlet')
| -rw-r--r-- | src/algebra/npcoef.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/npcoef.spad.pamphlet b/src/algebra/npcoef.spad.pamphlet index c89d9382..6607905c 100644 --- a/src/algebra/npcoef.spad.pamphlet +++ b/src/algebra/npcoef.spad.pamphlet @@ -66,7 +66,7 @@ NPCoef(BP,E,OV,R,P) : C == T where while changed and ndet~=1 repeat changed :=false dt:=#tablecoef - for i in 1..dt while ^changed repeat + for i in 1..dt while not changed repeat (cf:=check(tablecoef.i,ulist)) case "failed" => "next i" ltochange:=cons(i,ltochange) celtf:Detc:=cf::Detc @@ -143,7 +143,7 @@ NPCoef(BP,E,OV,R,P) : C == T where modify(tablecoef:TCoef,cfter:Detc) : TCoef == cfexp:=cfter.valexp;cfcoef:=cfter.valcoef;cfpos:=cfter.posit lterase:List(NNI):=empty() - for cterm in tablecoef | ^empty?(ctdet:=cterm.detfacts) repeat + for cterm in tablecoef | not empty?(ctdet:=cterm.detfacts) repeat (+/[term.expt for term in ctdet.first])<cfexp => "next term" for celt in ctdet repeat if celt.cfpos.expt=cfexp then |