aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/solvelin.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/solvelin.spad.pamphlet')
-rw-r--r--src/algebra/solvelin.spad.pamphlet4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/solvelin.spad.pamphlet b/src/algebra/solvelin.spad.pamphlet
index f3f6a63e..1bef30f9 100644
--- a/src/algebra/solvelin.spad.pamphlet
+++ b/src/algebra/solvelin.spad.pamphlet
@@ -84,7 +84,7 @@ LinearSystemMatrixPackage(F, Row, Col, M): Cat == Capsule where
v.j := i
for j in 0..nvar-1 repeat
if v.j >= minRowIndex m then
- qsetelt_!(sol, j+minIndex sol, - qelt(m, v.j, maxColIndex m))
+ qsetelt!(sol, j+minIndex sol, - qelt(m, v.j, maxColIndex m))
sol
solve(A:M, b:Col) ==
@@ -227,7 +227,7 @@ LinearSystemPolynomialPackage(R, E, OV, P): Cat == Capsule where
for p in ps for i in 1.. repeat
totalDegree(p,vs) > 1 => error "The system is not linear"
r := poly2vect(p,vs)
- m:=setRow_!(m,i,r.coefvec)
+ m:=setRow!(m,i,r.coefvec)
v.i := - r.reductum
[m, v]