src/Pure/PIDE/command.ML
changeset 53404 d598b6231ff7
parent 53375 78693e46a237
child 53709 84522727f9d3
equal deleted inserted replaced
53403:c09f4005d6bd 53404:d598b6231ff7
   292 end;
   292 end;
   293 
   293 
   294 val _ =
   294 val _ =
   295   print_function "print_state"
   295   print_function "print_state"
   296     (fn {command_name, ...} =>
   296     (fn {command_name, ...} =>
   297       SOME {delay = NONE, pri = 1, persistent = true, strict = true,
   297       SOME {delay = NONE, pri = 1, persistent = false, strict = true,
   298         print_fn = fn tr => fn st' =>
   298         print_fn = fn tr => fn st' =>
   299           let
   299           let
   300             val is_init = Keyword.is_theory_begin command_name;
   300             val is_init = Keyword.is_theory_begin command_name;
   301             val is_proof = Keyword.is_proof command_name;
   301             val is_proof = Keyword.is_proof command_name;
   302             val do_print =
   302             val do_print =