src/Tools/Code/code_target.ML
changeset 42361 23f352990944
parent 42359 6ca5407863ed
child 43324 2b47822868e4
     1.1 --- a/src/Tools/Code/code_target.ML	Sat Apr 16 15:47:52 2011 +0200
     1.2 +++ b/src/Tools/Code/code_target.ML	Sat Apr 16 16:15:37 2011 +0200
     1.3 @@ -307,7 +307,7 @@
     1.4  
     1.5  fun project_program thy abortable names_hidden names1 program2 =
     1.6    let
     1.7 -    val ctxt = ProofContext.init_global thy;
     1.8 +    val ctxt = Proof_Context.init_global thy;
     1.9      val names2 = subtract (op =) names_hidden names1;
    1.10      val program3 = Graph.subgraph (not o member (op =) names_hidden) program2;
    1.11      val names4 = Graph.all_succs program3 names2;
    1.12 @@ -316,7 +316,7 @@
    1.13      val _ =
    1.14        if null empty_funs then ()
    1.15        else error ("No code equations for " ^
    1.16 -        commas (map (ProofContext.extern_const ctxt) empty_funs));
    1.17 +        commas (map (Proof_Context.extern_const ctxt) empty_funs));
    1.18      val program4 = Graph.subgraph (member (op =) names4) program3;
    1.19    in (names4, program4) end;
    1.20  
    1.21 @@ -515,7 +515,7 @@
    1.22    (parse_const_terms -- Scan.repeat (parse_consts || parse_types || parse_classes || parse_instances)
    1.23      -- Scan.lift (Args.parens (Args.name -- Scan.option Parse.int)))
    1.24    (fn {context = ctxt, ...} => fn ((mk_cs, mk_stmtss), (target, some_width)) =>
    1.25 -    let val thy = ProofContext.theory_of ctxt in
    1.26 +    let val thy = Proof_Context.theory_of ctxt in
    1.27        present_code thy (mk_cs thy)
    1.28          (fn naming => maps (fn f => f thy naming) mk_stmtss)
    1.29          target some_width "Example" []