changeset 39326 | 0b68add21e3d |
parent 38516 | 307669429dc1 |
child 39456 | 37f1a961a918 |
--- a/src/HOL/Tools/Nitpick/kodkod.ML Sat Sep 11 12:30:50 2010 +0200 +++ b/src/HOL/Tools/Nitpick/kodkod.ML Sat Sep 11 12:31:05 2010 +0200 @@ -1126,7 +1126,7 @@ | NONE => let val outcome = do_solve () in (case outcome of - Normal (ps, js, "") => + Normal (_, _, "") => Synchronized.change cached_outcome (K (SOME ((max_solutions, problems), outcome))) | _ => ());