# HG changeset patch
# User bulwahn
# Date 1301504997 -7200
# Node ID c7b6d8d9922edfcf9eaf0cade9f0af5569895ba9
# Parent  32c3bb5e1b1af2a32cb794104255c69672494404
removing dead code in exhaustive_generators

diff -r 32c3bb5e1b1a -r c7b6d8d9922e src/HOL/Tools/Quickcheck/exhaustive_generators.ML
--- a/src/HOL/Tools/Quickcheck/exhaustive_generators.ML	Wed Mar 30 19:09:56 2011 +0200
+++ b/src/HOL/Tools/Quickcheck/exhaustive_generators.ML	Wed Mar 30 19:09:57 2011 +0200
@@ -287,20 +287,6 @@
 val put_counterexample_batch = Counterexample_Batch.put;
 
 val target = "Quickcheck";
-(*
-fun compile_simple_generator_expr ctxt (t, eval_terms) =
-  let
-    val thy = ProofContext.theory_of ctxt
-    val t' = mk_generator_expr ctxt (t, eval_terms);
-    val compile = Code_Runtime.dynamic_value_strict
-      (Counterexample.get, put_counterexample, "Exhaustive_Generators.put_counterexample")
-      thy (SOME target) (fn proc => fn g => g #> (Option.map o map) proc) t' [];
-  in
-    fn [size] => rpair NONE (compile [size] |> 
-      (if Config.get ctxt quickcheck_pretty then
-        Option.map (map Quickcheck_Common.post_process_term) else I))
-  end;
-*)
   
 fun compile_generator_expr ctxt ts =
   let