equal
deleted
inserted
replaced
164 end; |
164 end; |
165 |
165 |
166 |
166 |
167 (* normalize *) |
167 (* normalize *) |
168 |
168 |
169 val trace_raw = Config.declare ("syntax_ast_trace", @{here}) (fn _ => Config.Bool false); |
169 val trace_raw = Config.declare ("syntax_ast_trace", \<^here>) (fn _ => Config.Bool false); |
170 val trace = Config.bool trace_raw; |
170 val trace = Config.bool trace_raw; |
171 |
171 |
172 val stats_raw = Config.declare ("syntax_ast_stats", @{here}) (fn _ => Config.Bool false); |
172 val stats_raw = Config.declare ("syntax_ast_stats", \<^here>) (fn _ => Config.Bool false); |
173 val stats = Config.bool stats_raw; |
173 val stats = Config.bool stats_raw; |
174 |
174 |
175 fun message head body = |
175 fun message head body = |
176 Pretty.string_of (Pretty.block [Pretty.str head, Pretty.brk 1, body]); |
176 Pretty.string_of (Pretty.block [Pretty.str head, Pretty.brk 1, body]); |
177 |
177 |