Start storing mandarin SLPs

Author: ssiccha

gap/base/recognition.gi

@@ -542,6 +542,7 @@ InstallGlobalFunction( RecogniseGeneric,
         IsIdenticalObj( methoddb, FindHomDbProjective ),
         knowledge
     );
+    ri!.mandarins := mandarins;
     if isSafeForMandarins then
         SetFilterObj(ri, IsSafeForMandarins);
     fi;
@@ -596,19 +597,18 @@ InstallGlobalFunction( RecogniseGeneric,
             fi;
         fi;
 
-        # TODO: store the mandarin SLPs here. Make sure, to only write when succesful.
-        # check mandarins now
+        # Check mandarins now
+        mandarinSLPs := [];
         for x in mandarins do
             s := SLPforElement(ri, x);
             if s = fail then
-                # TODO: with the master branch rewriting the gens as slps never
-                # fails. at least we never enter a second iteration of the
-                # "recognise image" loop.
                 Info(InfoRecog, 2,
                      "Enter Mandarin crisis (leaf, depth=", depth, ").");
                 return MANDARIN_CRISIS;
             fi;
+            Add(mandarinSLPs, s);
         od;
+        ri!.mandarinSLPs := mandarinSLPs;
 
         if InfoLevel(InfoRecog) = 1 and depth = 0 then Print("\n"); fi;
         # StopStoringRandEls(ri);