1.1 --- a/src/Pure/Thy/rail.ML	Mon Jun 27 17:51:28 2011 +0200
     1.2 +++ b/src/Pure/Thy/rail.ML	Mon Jun 27 22:20:49 2011 +0200
     1.3 @@ -259,8 +259,10 @@
     1.4  in
     1.5  
     1.6  val _ =
     1.7 -  Thy_Output.antiquotation "rail" (Scan.lift (Parse.source_position Parse.string))
     1.8 -    (fn {state, ...} => output_rules state o read);
     1.9 +  Context.>> (Context.map_theory
    1.10 +    (Thy_Output.antiquotation (Binding.name "rail")
    1.11 +      (Scan.lift (Parse.source_position Parse.string))
    1.12 +      (fn {state, ...} => output_rules state o read)));
    1.13  
    1.14  end;
    1.15