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

---
 src/algebra/sgcf.spad.pamphlet | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/algebra/sgcf.spad.pamphlet b/src/algebra/sgcf.spad.pamphlet
index 72669658..b917271f 100644
--- a/src/algebra/sgcf.spad.pamphlet
+++ b/src/algebra/sgcf.spad.pamphlet
@@ -361,10 +361,9 @@ SymmetricGroupCombinatoricFunctions(): public == private where
  
  
     listYoungTableaus(lambda) ==
-      lattice   : L I
       ytab      : M I
       younglist : L M I := nil$(L M I)
-      lattice   := nextLatticePermutation(lambda,lattice,false)
+      lattice   := nextLatticePermutation(lambda,nil,false)
       until null lattice repeat
         ytab      := makeYoungTableau(lambda,lattice)
         younglist := append(younglist,[ytab]$(L M I))$(L M I)
-- 
cgit v1.2.3