author | blanchet |
Tue, 23 Feb 2010 16:53:13 +0100 | |
changeset 35334 | b83b9f2a4b92 |
parent 35333 | f61de25f71f9 |
child 35335 | f715cfde056a |
--- a/src/HOL/Tools/Nitpick/nitpick.ML Tue Feb 23 15:56:13 2010 +0100 +++ b/src/HOL/Tools/Nitpick/nitpick.ML Tue Feb 23 16:53:13 2010 +0100 @@ -583,7 +583,7 @@ o nth problems) (* string -> unit *) fun show_kodkod_warning "" = () - | show_kodkod_warning s = print_v (fn () => "Kodkod warning: " ^ s ^ ".") + | show_kodkod_warning s = print_m (fn () => "Kodkod warning: " ^ s ^ ".") (* bool -> KK.raw_bound list -> problem_extension -> bool option *) fun print_and_check_model genuine bounds