1.1 --- a/src/Tools/code/code_ml.ML	Mon Jun 01 15:26:00 2009 +0200
     1.2 +++ b/src/Tools/code/code_ml.ML	Mon Jun 01 15:26:00 2009 +0200
     1.3 @@ -1081,7 +1081,7 @@
     1.4  fun isar_seri_sml module_name =
     1.5    Code_Target.parse_args (Scan.succeed ())
     1.6    #> (fn () => serialize_ml target_SML
     1.7 -      (SOME (use_text ML_Context.local_context (1, "generated code") false))
     1.8 +      (SOME (use_text ML_Env.local_context (1, "generated code") false))
     1.9        pr_sml_module pr_sml_stmt module_name);
    1.10  
    1.11  fun isar_seri_ocaml module_name =