From 640d839b4de4d0daf0dde00ba08eab6d264160ad Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 21 Jun 2010 03:14:17 +0000
Subject: 	* algebra/sgcf.spad.pamphlet
 (SymmetricGroupCombinatoricFunctions) 	[listYoungTableaus]: Fix thinko. 
 Don't use lattice in its own 	initialization before it is defined.

---
 src/algebra/syssolp.spad.pamphlet | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/src/algebra/syssolp.spad.pamphlet b/src/algebra/syssolp.spad.pamphlet
index 1561a89a..2d035d32 100644
--- a/src/algebra/syssolp.spad.pamphlet
+++ b/src/algebra/syssolp.spad.pamphlet
@@ -118,8 +118,9 @@ SystemSolvePackage(R): Cat == Cap where
          z:=last lv
          np:=numer makeP2F p
          lx:=variables np
-         x : SE
-         for x in lv repeat if member?(x,lx) then leave x
+         x : SE 
+         for x' in lv repeat
+           if member?(x',lx) then leave (x := x')
          up:=univariate(np,x)
          (degree up)=1 =>
            equation(x::P(R)::F,-coefficient(up,0)/leadingCoefficient up)
-- 
cgit v1.2.3