tuned;
authorwenzelm
Tue, 29 Sep 2020 12:01:30 +0200
changeset 72330 562445121de7
parent 72329 6255e532aa36
child 72331 850ba6d47300
tuned;
src/HOL/Tools/Nitpick/kodkod.ML
--- a/src/HOL/Tools/Nitpick/kodkod.ML	Tue Sep 29 11:59:59 2020 +0200
+++ b/src/HOL/Tools/Nitpick/kodkod.ML	Tue Sep 29 12:01:30 2020 +0200
@@ -1054,19 +1054,10 @@
           |> find_first (fn line => line <> "" andalso line <> "EXIT")
           |> the_default ""
       in
-        if null ps then
-          if rc = 130 then
-            raise Exn.Interrupt
-          else if rc = 2 then
-            TimedOut js
-          else if rc = 0 then
-            Normal ([], js, first_error)
-          else if first_error <> "" then
-            Error (first_error, js)
-          else
-            Error ("Unknown error", js)
-        else
-          Normal (ps, js, first_error)
+        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 Error (if first_error = "" then "Unknown error" else first_error, js)
       end
   end