aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/solvedio.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/solvedio.spad.pamphlet')
-rw-r--r--src/algebra/solvedio.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/solvedio.spad.pamphlet b/src/algebra/solvedio.spad.pamphlet
index f83c9cb6..7b68eb4b 100644
--- a/src/algebra/solvedio.spad.pamphlet
+++ b/src/algebra/solvedio.spad.pamphlet
@@ -156,7 +156,7 @@ DiophantineSolutionPackage(): Cat == Capsule where
verifyMinimality(sol, graph, flag) ==
-- test whether sol contains a minimal homogeneous solution
flag => -- sol is a homogeneous solution
- i := 1
+ i: I := 1
while sol.i = 0 repeat
i := i + 1
x := sol.i