HACK: debug PROGRAM_CLEAN_UP

gap-system · Jan 29, 2020 · 989af9f · 989af9f
1 parent 4df0caf
commit 989af9f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/session.g b/lib/session.g
@@ -33,11 +33,13 @@ BIND_GLOBAL("PROGRAM_CLEAN_UP", function()
             funcs := GAPInfo.AtExitFuncs;
         fi;
         while not IsEmpty(funcs) do
+            PrintTo("*stderr*", "still ", Length(funcs), "AtExitFuncs to invoke...\n");
             f := Remove(funcs);
             if IsFunction(f) then
                 CALL_WITH_CATCH(f,[]);
             fi;
         od;
+        PrintTo("*stderr*", "Done invoking all AtExitFuncs\n");
     fi;
 end);