1.1 --- a/doc-src/rail.ML	Tue May 18 00:01:51 2010 +0200
     1.2 +++ b/doc-src/rail.ML	Tue May 18 10:13:33 2010 +0200
     1.3 @@ -59,9 +59,9 @@
     1.4  (*  [(kind, (markup, check, style))*)
     1.5    Symtab.make [
     1.6    ("syntax", ("", no_check, true)),
     1.7 -  ("command", ("isacommand", K (is_some o OuterKeyword.command_keyword), true)),
     1.8 -  ("keyword", ("isakeyword", K OuterKeyword.is_keyword, true)),
     1.9 -  ("element", ("isakeyword", K OuterKeyword.is_keyword, true)),
    1.10 +  ("command", ("isacommand", K (is_some o Keyword.command_keyword), true)),
    1.11 +  ("keyword", ("isakeyword", K Keyword.is_keyword, true)),
    1.12 +  ("element", ("isakeyword", K Keyword.is_keyword, true)),
    1.13    ("method", ("", thy_check Method.intern Method.defined, true)),
    1.14    ("attribute", ("", thy_check Attrib.intern Attrib.defined, true)),
    1.15    ("fact", ("", no_check, true)),
    1.16 @@ -473,7 +473,7 @@
    1.17    |> parse
    1.18    |> print;
    1.19  
    1.20 -val _ = ThyOutput.antiquotation "rail" (Scan.lift ( OuterParse.position Args.name ))
    1.21 +val _ = ThyOutput.antiquotation "rail" (Scan.lift (Parse.position Args.name))
    1.22    (fn {context = ctxt,...} => fn txt => process txt ctxt);
    1.23  
    1.24  end;