--- 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