Capture InterruptMain during takeMVar

ChangeLog.md

@@ -1,3 +1,7 @@
+NEXT VERSION []
+------------------
+* Crash of python's main thread when one attempts to interrupt it fixed.
+
 0.1.1 [2025.02.13]
 ------------------
 * Number of deadlocks in `runPyInMain` fixed:

src/Python/Internal/Eval.hs

@@ -362,7 +362,7 @@ mainThread lock_init lock_eval = do
   case r_init of
     False -> pure ()
     True  -> mask_ $ fix $ \loop ->
-      takeMVar lock_eval >>= \case
+      (takeMVar lock_eval `catch` (\InterruptMain -> pure HereWeGoAgain)) >>= \case
         EvalReq py resp -> do
           res <- (Right <$> runPy py) `catch` (pure . Left)
           putMVar resp res
@@ -373,6 +373,7 @@ mainThread lock_init lock_eval = do
             Py_Finalize();
             } |]
           putMVar resp ()
+        HereWeGoAgain -> loop
 
 
 doInializePythonIO :: IO Bool
@@ -431,6 +432,7 @@ doInializePythonIO = do
 data EvalReq
   = forall a. EvalReq (Py a) (MVar (Either SomeException a))
   | StopReq (MVar ())
+  | HereWeGoAgain
 
 data InterruptMain = InterruptMain
   deriving stock    Show