# HG changeset patch # User wenzelm # Date 1601373690 -7200 # Node ID 562445121de783f725180c86054f0714aa267744 # Parent 6255e532aa3662d56df6a130f9af0816111f8c09 tuned; diff -r 6255e532aa36 -r 562445121de7 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