diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-06-11 23:00:40 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-06-11 23:00:40 +0000 |
| commit | 9e07dcd91c45bf8b22d932321f5c97e931ffe8ac (patch) | |
| tree | 6d2174e90e5779b1b3ab4ae7df3ae6603b66c6c2 /src/algebra/pleqn.spad.pamphlet | |
| parent | 7bd82b57975bbc1ff5b87fed0739815c620ecdcc (diff) | |
| download | open-axiom-9e07dcd91c45bf8b22d932321f5c97e931ffe8ac.tar.gz | |
* algebra/: Don't quote '!' at end of names.
Diffstat (limited to 'src/algebra/pleqn.spad.pamphlet')
| -rw-r--r-- | src/algebra/pleqn.spad.pamphlet | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/algebra/pleqn.spad.pamphlet b/src/algebra/pleqn.spad.pamphlet index fa296d65..96e29d30 100644 --- a/src/algebra/pleqn.spad.pamphlet +++ b/src/algebra/pleqn.spad.pamphlet @@ -412,10 +412,10 @@ ParametricLinearEquations(R,Var,Expon,GR): for y in pc repeat rec3:Rec3:= regime (y, coeff, w, psbf, rk, rkmax, mode) inconsistent? rec3.wcond => "incompatible system" - if filemode then write_!(rksoln, rec3) + if filemode then write!(rksoln, rec3) else lrec3:= cons(rec3, lrec3) count:=count+1 - if filemode then close_! rksoln + if filemode then close! rksoln [lrec3, count]$Ranksolns factorset y == @@ -566,9 +566,9 @@ ParametricLinearEquations(R,Var,Expon,GR): count:I:=0 -- number of distinct regimes -- rec3: Rec3 for rec3 in lrec3 repeat - write_!(rksoln, rec3) + write!(rksoln, rec3) count:=count+1 - close_!(rksoln) + close!(rksoln) count dmp2rfi (p:GR):GF == @@ -579,11 +579,11 @@ ParametricLinearEquations(R,Var,Expon,GR): infilename:=filename$FNAME ("",inname, "regime") infile: File Rec3:=open$(File Rec3) (infilename, "input") rksoln:L Rec3:=[] - rec3:Union(Rec3, "failed"):=readIfCan_!$(File Rec3) (infile) + rec3:Union(Rec3, "failed"):=readIfCan!$(File Rec3) (infile) while rec3 case Rec3 repeat rksoln:=cons(rec3::Rec3,rksoln) -- replace : to :: for AIX - rec3:=readIfCan_!$(File Rec3) (infile) - close_!(infile) + rec3:=readIfCan!$(File Rec3) (infile) + close!(infile) rksoln maxrank rcl == |