From d6459656b57e3804d94df752a7b00c706d8954d8 Mon Sep 17 00:00:00 2001
From: Manuel Delgado <mdelgado@fc.up.pt>
Date: Fri, 25 Jun 2021 00:05:29 +0100
Subject: [PATCH] fixed bug pointed out by LarsLouder

---
 gap/foldings.gi | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/gap/foldings.gi b/gap/foldings.gi
index 7d572fc..9fa1ac9 100644
--- a/gap/foldings.gi
+++ b/gap/foldings.gi
@@ -178,12 +178,14 @@ InstallGlobalFunction(FlowerAutomaton, function(L)
                 AddSet(T[p][q], q-1);
             fi;
         od;
-        p := Position(alph, g[Length(g)]);
-        if p <= n then
-            AddSet(T[p][q],1);
-        else
-            p := p - n;
-            AddSet(T[p][1], q);
+        if Length(g) > 1 then
+            p := Position(alph, g[Length(g)]);
+            if p <= n then
+                AddSet(T[p][q],1);
+            else
+                p := p - n;
+                AddSet(T[p][1], q);
+            fi;
         fi;
     od;