diff --git a/gap/PolygonalComplexes/constructors.gi b/gap/PolygonalComplexes/constructors.gi index afbc4ec5..206ee004 100644 --- a/gap/PolygonalComplexes/constructors.gi +++ b/gap/PolygonalComplexes/constructors.gi @@ -504,10 +504,10 @@ InstallMethod(UmbrellaTipDescriptorOfSurface, umbdesc:=[]; for vertex in Vertices(surf) do #UmbrellaTipDescriptor for a vertex - umbPath:=UmbrellaPathOfVertex(surf,vertex); - vertEdges:=EdgesAsList(umbPath); - vertEdges:=List(vertEdges, x -> VerticesOfEdges(surf)[x]); - umbVertices:=[]; + umbPath := UmbrellaPathOfVertex(surf,vertex); + vertEdges := EdgesAsList(umbPath); + vertEdges := List(vertEdges, x -> VerticesOfEdges(surf)[x]); + umbVertices := []; for edge in vertEdges do if not edge[1]=vertex then Add(umbVertices, edge[1]); @@ -520,10 +520,10 @@ InstallMethod(UmbrellaTipDescriptorOfSurface, if IsClosedPath(umbPath) then #umbpath is a closed umbrella Remove(umbVertices); - Add(umbdesc, CycleFromList(umbVertices)); + umbdesc[vertex] := CycleFromList(umbVertices); else #umbpath is not a closed umbrella - Add(umbdesc, umbVertices); + umbdesc[vertex] := umbVertices; fi; od; return umbdesc;