finally found it, parens where brackets should have been

This commit is contained in:
Glen Whitney 2017-10-25 19:26:21 +02:00
parent 2619562396
commit 7d19748254
1 changed files with 4 additions and 9 deletions

View File

@ -408,20 +408,15 @@ InstallOtherMethod(DirectProductOp,
function (list, first)
local n, item, i, jof, bigtable;
n := Length(list);
Print("Hi", n, "\n");
# Simple checks
Print("Ho", n=0, "\n");
Print("Ha", n<1, "\n");
# Why does the following fail?
# Simple checks
if n < 1 then
Error("Usage: Cannot take DirectProduct of zero items.");
elif n < 2 then
return list[1];
fi;
# if n < 2 then
# return list[1];
# fi;
# See if we can handle all objects
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]);
fi;
od;