# HG changeset patch
# User bulwahn
# Date 1299853273 -3600
# Node ID b09a67a3dc1e1ea1ab080d30c08cfac86bb5f8ba
# Parent  4b9fdfd23752cebff24b69eb8ce1bc69dfb00d4b
adapting record package to renaming of quickcheck's structures

diff -r 4b9fdfd23752 -r b09a67a3dc1e src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Fri Mar 11 15:21:13 2011 +0100
+++ b/src/HOL/Tools/record.ML	Fri Mar 11 15:21:13 2011 +0100
@@ -1835,7 +1835,7 @@
   in
     if has_inst then thy
     else
-      (case Quickcheck_Generators.perhaps_constrain thy (map (rpair @{sort random}) Ts) vs of
+      (case Random_Generators.perhaps_constrain thy (map (rpair @{sort random}) Ts) vs of
         SOME constrain =>
           instantiate_random_record ext_tyco (map constrain vs) extN
             ((map o map_atyps) (fn TFree v => TFree (constrain v)) Ts) thy