equal
deleted
inserted
replaced
107 priority_fn := (fn s => decorate (special "360") (special "361") "" s); |
107 priority_fn := (fn s => decorate (special "360") (special "361") "" s); |
108 tracing_fn := (fn s => decorate (special "360" ^ special "375") (special "361") "" s); |
108 tracing_fn := (fn s => decorate (special "360" ^ special "375") (special "361") "" s); |
109 info_fn := (fn s => decorate (special "362") (special "363") "+++ " s); |
109 info_fn := (fn s => decorate (special "362") (special "363") "+++ " s); |
110 debug_fn := (fn s => decorate (special "362") (special "363") "+++ " s); |
110 debug_fn := (fn s => decorate (special "362") (special "363") "+++ " s); |
111 warning_fn := (fn s => decorate (special "362") (special "363") "### " s); |
111 warning_fn := (fn s => decorate (special "362") (special "363") "### " s); |
112 error_fn := (fn s => decorate (special "364") (special "365") "*** " s); |
112 error_fn := (fn s => decorate "" "" "" s); |
|
113 Toplevel.print_exn_fn := (Option.app (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str); |
113 panic_fn := (fn s => decorate (special "364") (special "365") "!!! " s)); |
114 panic_fn := (fn s => decorate (special "364") (special "365") "!!! " s)); |
114 |
115 |
115 |
116 |
116 fun emacs_notify s = decorate (special "360") (special "361") "" s; |
117 fun emacs_notify s = decorate (special "360") (special "361") "" s; |
117 |
118 |