author | bulwahn |
Fri, 18 Mar 2011 18:19:42 +0100 | |
changeset 42029 | da92153d6dff |
parent 42028 | bd6515e113b2 |
child 42030 | 96327c909389 |
--- a/src/HOL/Library/SML_Quickcheck.thy Fri Mar 18 18:19:42 2011 +0100 +++ b/src/HOL/Library/SML_Quickcheck.thy Fri Mar 18 18:19:42 2011 +0100 @@ -8,7 +8,7 @@ setup {* Inductive_Codegen.quickcheck_setup #> Context.theory_map (Quickcheck.add_generator ("SML", - fn ctxt => fn t => + fn ctxt => fn (t, eval_terms) => let val test_fun = Codegen.test_term ctxt t val iterations = Config.get ctxt Quickcheck.iterations