print_theorems: proper use of PureThy.print_theorems_diff;
authorwenzelm
Mon Jun 20 22:14:13 2005 +0200 (2005-06-20)
changeset 164992076b2e6ac58
parent 16498 9d265401fee0
child 16500 09d43301b195
print_theorems: proper use of PureThy.print_theorems_diff;
src/Pure/Isar/isar_cmd.ML
     1.1 --- a/src/Pure/Isar/isar_cmd.ML	Mon Jun 20 22:14:12 2005 +0200
     1.2 +++ b/src/Pure/Isar/isar_cmd.ML	Mon Jun 20 22:14:13 2005 +0200
     1.3 @@ -212,8 +212,10 @@
     1.4    Toplevel.keep (Display.print_syntax o Toplevel.theory_of) o
     1.5    Toplevel.keep (ProofContext.print_syntax o Proof.context_of o Toplevel.proof_of);
     1.6  
     1.7 -val print_theorems = Toplevel.unknown_theory o
     1.8 -  Toplevel.keep (PureThy.print_theorems o Toplevel.theory_of);
     1.9 +val print_theorems = Toplevel.unknown_theory o Toplevel.keep (fn state =>
    1.10 +  (case History.previous (Toplevel.node_history_of state) of
    1.11 +    SOME (Toplevel.Theory prev_thy) => PureThy.print_theorems_diff prev_thy
    1.12 +  | _ => PureThy.print_theorems) (Toplevel.theory_of state));
    1.13  
    1.14  val print_locales = Toplevel.unknown_theory o
    1.15    Toplevel.keep (Locale.print_locales o Toplevel.theory_of);