src/Pure/Thy/thy_output.ML
changeset 56052 4873054cd1fc
parent 56034 1c59b555ac4a
child 56069 451d5b73f8cf
equal deleted inserted replaced
56051:c3681b9e060f 56052:4873054cd1fc
   102   in opt s ctxt end;
   102   in opt s ctxt end;
   103 
   103 
   104 fun print_antiquotations ctxt =
   104 fun print_antiquotations ctxt =
   105   let
   105   let
   106     val (commands, options) = get_antiquotations ctxt;
   106     val (commands, options) = get_antiquotations ctxt;
   107     val command_names = map #1 (Name_Space.extern_table ctxt commands);
   107     val command_names = map #1 (Name_Space.markup_table ctxt commands);
   108     val option_names = map #1 (Name_Space.extern_table ctxt options);
   108     val option_names = map #1 (Name_Space.markup_table ctxt options);
   109   in
   109   in
   110     [Pretty.big_list "document antiquotations:" (map Pretty.mark_str command_names),
   110     [Pretty.big_list "document antiquotations:" (map Pretty.mark_str command_names),
   111       Pretty.big_list "document antiquotation options:" (map Pretty.mark_str option_names)]
   111       Pretty.big_list "document antiquotation options:" (map Pretty.mark_str option_names)]
   112     |> Pretty.chunks |> Pretty.writeln
   112     |> Pretty.chunks |> Pretty.writeln
   113   end;
   113   end;