src/Pure/Syntax/ast.ML
changeset 64556 851ae0e7b09c
parent 62819 d3ff367a16a0
child 67519 6905b156a030
equal deleted inserted replaced
64555:628b271c5b8b 64556:851ae0e7b09c
   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