# HG changeset patch
# User wenzelm
# Date 1695121933 -7200
# Node ID fcdfd3251892d6b593c246b048e7b3d3d85aab7a
# Parent  66e7a3131fe34173a15aae88d82e2cfc452cf85c
tuned (following 69c6d3e87660);

diff -r 66e7a3131fe3 -r fcdfd3251892 src/HOL/Tools/Nitpick/kodkod.ML
--- a/src/HOL/Tools/Nitpick/kodkod.ML	Tue Sep 19 13:02:48 2023 +0200
+++ b/src/HOL/Tools/Nitpick/kodkod.ML	Tue Sep 19 13:12:13 2023 +0200
@@ -1049,7 +1049,7 @@
       in
         if not (null ps) orelse rc = 0 then Normal (ps, js, first_error)
         else if rc = 2 then TimedOut js
-        else if rc = 130 then raise Exn.Interrupt
+        else if rc = 130 then Exn.interrupt ()
         else Error (if first_error = "" then "Unknown error" else first_error, js)
       end
   end
diff -r 66e7a3131fe3 -r fcdfd3251892 src/Pure/System/isabelle_system.ML
--- a/src/Pure/System/isabelle_system.ML	Tue Sep 19 13:02:48 2023 +0200
+++ b/src/Pure/System/isabelle_system.ML	Tue Sep 19 13:12:13 2023 +0200
@@ -68,7 +68,7 @@
               if head = Bash.server_uuid andalso length args = 1 then
                 loop (SOME (hd args)) s
               else if head = Bash.server_interrupt andalso null args then
-                raise Exn.Interrupt
+                Exn.interrupt ()
               else if head = Bash.server_failure andalso length args = 1 then
                 raise Fail (hd args)
               else if head = Bash.server_result andalso length args >= 4 then