need to type the argument to call a function :-)

This commit is contained in:
Glen Whitney 2017-10-19 01:35:13 +02:00
parent b6811bc762
commit b4fa1cfd3c

View File

@ -297,7 +297,7 @@ InstallMethod(DisplayString, "for a rightt quasigroup",
InstallMethod(Display, "for a left quasigroup with multiplication table",
[IsLeftQuasigroup and HasMultiplicationTable],
function(Q)
Print(LeftObjString@, " with ", Size(Q),
Print(LeftObjString@(Q), " with ", Size(Q),
" elements, generated by ",
GeneratorsOfLeftQuasigroup(Q), ", with table\n");
Display(MultiplicationTable(Q));
@ -306,19 +306,19 @@ end);
InstallMethod(Display, "for a right quasigroup with multiplication table",
[IsRightQuasigroup and HasMultiplicationTable],
function(Q)
Print(RightObjString@, " with ", Size(Q),
Print(RightObjString@(Q), " with ", Size(Q),
" elements, generated by ",
GeneratorsOfRightQuasigroup(Q), ", with table\n");
Display(MultiplicationTable(Q));
end);
LeftObjView@ := function(Q)
if HasIsLeftRack(Q) and IsLeftRack(Q) then return "<left rack"; fi;
if IsLeftRack(Q) then return "<left rack"; fi;
return "<left quasigroup";
end;
RightObjView@ := function(Q)
if HasIsRightRack(Q) and IsRightRack(Q) then return "<right rack"; fi;
if IsRightRack(Q) then return "<right rack"; fi;
return "<right quasigroup";
end;