--- a/src/HOL/Tools/Predicate_Compile/predicate_compile_specialisation.ML Wed May 19 18:24:08 2010 +0200
+++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_specialisation.ML Wed May 19 18:24:09 2010 +0200
@@ -181,7 +181,7 @@
if member (op =) ((map fst specs) @ black_list) pred_name then
thy
else
- (case try (Predicate_Compile_Core.intros_of thy) pred_name of
+ (case try (Predicate_Compile_Core.intros_of (ProofContext.init_global thy)) pred_name of
NONE => thy
| SOME [] => thy
| SOME intros =>