equal
deleted
inserted
replaced
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 |