avoid duplication of warnings stemming from simp/intro declarations etc.;
authorwenzelm
Tue, 05 Aug 2014 15:07:11 +0200
changeset 590790c104888f1ca
parent 59078 8f074e6e22fc
child 59080 7cf01ece66e4
avoid duplication of warnings stemming from simp/intro declarations etc.;
src/Pure/Isar/method.ML
     1.1 --- a/src/Pure/Isar/method.ML	Tue Aug 05 12:56:15 2014 +0200
     1.2 +++ b/src/Pure/Isar/method.ML	Tue Aug 05 15:07:11 2014 +0200
     1.3 @@ -347,10 +347,11 @@
     1.4    let val table = get_methods ctxt
     1.5    in fn src => #1 (Name_Space.get table (#1 (Args.name_of_src src))) src end;
     1.6  
     1.7 -fun method_closure ctxt src0 =
     1.8 +fun method_closure ctxt0 src0 =
     1.9    let
    1.10 -    val (src1, meth) = check_src ctxt src0;
    1.11 +    val (src1, meth) = check_src ctxt0 src0;
    1.12      val src2 = Args.init_assignable src1;
    1.13 +    val ctxt = Context_Position.not_really ctxt0;
    1.14      val _ = Seq.pull (apply (method ctxt src2) ctxt [] (Goal.protect 0 Drule.dummy_thm));
    1.15    in Args.closure src2 end;
    1.16