--- a/src/HOL/Mutabelle/mutabelle_extra.ML Fri Dec 03 09:55:45 2010 +0100
+++ b/src/HOL/Mutabelle/mutabelle_extra.ML Fri Dec 03 10:28:39 2010 +0100
@@ -121,7 +121,7 @@
(NONE, _) => (NoCex, ([], NONE))
| (SOME _, _) => (GenuineCex, ([], NONE))) ()
handle TimeLimit.TimeOut =>
- (Timeout, ([("timelimit", Real.floor !Auto_Tools.time_limit)], NONE))
+ (Timeout, ([("timelimit", Real.floor (!Auto_Tools.time_limit))], NONE))
fun quickcheck_mtd change_options quickcheck_generator =
("quickcheck_" ^ quickcheck_generator, invoke_quickcheck change_options quickcheck_generator)