From 9e07dcd91c45bf8b22d932321f5c97e931ffe8ac Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 11 Jun 2009 23:00:40 +0000
Subject: 	* algebra/: Don't quote '!' at end of names.

---
 src/algebra/pleqn.spad.pamphlet | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/algebra/pleqn.spad.pamphlet')

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 ==
-- 
cgit v1.2.3