aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog6
-rw-r--r--src/algebra/sgcf.spad.pamphlet3
2 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index db1cc1ab..a4de5bf5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,11 @@
2010-06-20 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * algebra/sgcf.spad.pamphlet (SymmetricGroupCombinatoricFunctions)
+ [listYoungTableaus]: Fix thinko. Don't use lattice in its own
+ initialization.
+
+2010-06-20 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/g-opt.boot (changeVariableDefinitionToStore): New.
(optimizeFunctionDef): Use it.
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)