finally found it, parens where brackets should have been
This commit is contained in:
parent
2619562396
commit
7d19748254
|
@ -408,20 +408,15 @@ InstallOtherMethod(DirectProductOp,
|
||||||
function (list, first)
|
function (list, first)
|
||||||
local n, item, i, jof, bigtable;
|
local n, item, i, jof, bigtable;
|
||||||
n := Length(list);
|
n := Length(list);
|
||||||
Print("Hi", n, "\n");
|
# Simple checks
|
||||||
# Simple checks
|
|
||||||
Print("Ho", n=0, "\n");
|
|
||||||
Print("Ha", n<1, "\n");
|
|
||||||
# Why does the following fail?
|
|
||||||
if n < 1 then
|
if n < 1 then
|
||||||
Error("Usage: Cannot take DirectProduct of zero items.");
|
Error("Usage: Cannot take DirectProduct of zero items.");
|
||||||
|
elif n < 2 then
|
||||||
|
return list[1];
|
||||||
fi;
|
fi;
|
||||||
# if n < 2 then
|
|
||||||
# return list[1];
|
|
||||||
# fi;
|
|
||||||
# See if we can handle all objects
|
# See if we can handle all objects
|
||||||
for i in [2..n] do
|
for i in [2..n] do
|
||||||
if not HasMultiplicationTable(list(i)) then
|
if not HasMultiplicationTable(list[i]) then
|
||||||
return DirectProductOp(Permuted(list, (1,i)), list[i]);
|
return DirectProductOp(Permuted(list, (1,i)), list[i]);
|
||||||
fi;
|
fi;
|
||||||
od;
|
od;
|
||||||
|
|
Loading…
Reference in New Issue