src/Pure/Isar/method.ML
changeset 56334 6b3739fee456
parent 56278 2576d3a40ed6
child 56500 90f17a04567d
equal deleted inserted replaced
56333:38f1422ef473 56334:6b3739fee456
   326       | prt_meth (name, (_, comment)) =
   326       | prt_meth (name, (_, comment)) =
   327           Pretty.block
   327           Pretty.block
   328             (Pretty.mark_str name :: Pretty.str ":" :: Pretty.brk 2 :: Pretty.text comment);
   328             (Pretty.mark_str name :: Pretty.str ":" :: Pretty.brk 2 :: Pretty.text comment);
   329   in
   329   in
   330     [Pretty.big_list "methods:" (map prt_meth (Name_Space.markup_table ctxt meths))]
   330     [Pretty.big_list "methods:" (map prt_meth (Name_Space.markup_table ctxt meths))]
   331     |> Pretty.chunks |> Pretty.writeln
   331     |> Pretty.writeln_chunks
   332   end;
   332   end;
   333 
   333 
   334 fun add_method name meth comment thy = thy
   334 fun add_method name meth comment thy = thy
   335   |> Methods.map (Name_Space.define (Context.Theory thy) true (name, (meth, comment)) #> snd);
   335   |> Methods.map (Name_Space.define (Context.Theory thy) true (name, (meth, comment)) #> snd);
   336 
   336