tuned (following 69c6d3e87660);
authorwenzelm
Tue, 19 Sep 2023 13:12:13 +0200
changeset 78672 fcdfd3251892
parent 78671 66e7a3131fe3
child 78673 90b12b919b5f
tuned (following 69c6d3e87660);
src/HOL/Tools/Nitpick/kodkod.ML
src/Pure/System/isabelle_system.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
--- 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