Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
print_theorems: proper use of PureThy.print_theorems_diff;
authorwenzelm
Mon, 20 Jun 2005 22:14:13 +0200
changeset 16499 2076b2e6ac58
parent 16498 9d265401fee0
child 16500 09d43301b195
print_theorems: proper use of PureThy.print_theorems_diff;
src/Pure/Isar/isar_cmd.ML file | annotate | diff | comparison | revisions 
--- 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);
isabelle