From 9af5d627d846e2fe56266c068d8bf175085f23a9 Mon Sep 17 00:00:00 2001 From: Glen Whitney Date: Fri, 20 Oct 2017 16:31:22 +0200 Subject: [PATCH] code should work even if there is such a thing as an infinite table --- gap/bytable.gi | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/gap/bytable.gi b/gap/bytable.gi index 2b95de8..f24de40 100644 --- a/gap/bytable.gi +++ b/gap/bytable.gi @@ -40,11 +40,12 @@ end); ## And now create them from multiplication tables #First a helper function -FiniteMagmaCreator@ := function(tbl, const, filts) +FiniteMagmaCreator@ := function(tbl, cnstr, filts) local M; M := MagmaByMultiplicationTableCreatorNC( - tbl, const, filts and IsMagmaByMultiplicationTableObj); - SetIsFinite(ElementsFamily(FamilyObject(M))); + tbl, cnstr, filts and IsMagmaByMultiplicationTableObj); + # Is there such a thing as a non-finite table in GAP? Anyhow... + SetIsFinite(ElementsFamily(FamilyObj(M)), IsFinite(tbl)); return M; end;