# HG changeset patch
# User wenzelm
# Date 1119298453 -7200
# Node ID 2076b2e6ac58a151eaba129b4970c4d8fbd40c1a
# Parent  9d265401fee01ab9f01d9ad0f4c1aa2b27a9281d
print_theorems: proper use of PureThy.print_theorems_diff;

diff -r 9d265401fee0 -r 2076b2e6ac58 src/Pure/Isar/isar_cmd.ML
--- a/src/Pure/Isar/isar_cmd.ML	Mon Jun 20 22:14:12 2005 +0200
+++ b/src/Pure/Isar/isar_cmd.ML	Mon Jun 20 22:14:13 2005 +0200
@@ -212,8 +212,10 @@
   Toplevel.keep (Display.print_syntax o Toplevel.theory_of) o
   Toplevel.keep (ProofContext.print_syntax o Proof.context_of o Toplevel.proof_of);
 
-val print_theorems = Toplevel.unknown_theory o
-  Toplevel.keep (PureThy.print_theorems o Toplevel.theory_of);
+val print_theorems = Toplevel.unknown_theory o Toplevel.keep (fn state =>
+  (case History.previous (Toplevel.node_history_of state) of
+    SOME (Toplevel.Theory prev_thy) => PureThy.print_theorems_diff prev_thy
+  | _ => PureThy.print_theorems) (Toplevel.theory_of state));
 
 val print_locales = Toplevel.unknown_theory o
   Toplevel.keep (Locale.print_locales o Toplevel.theory_of);