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.
ML_Context.the_local_context;
authorwenzelm
Fri, 24 Jul 2009 22:31:27 +0200
changeset 32180 37800cb1d378
parent 32179 1c9c991e41c0
child 32181 7e460c2d4223
ML_Context.the_local_context;
src/HOL/Import/proof_kernel.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Import/proof_kernel.ML	Fri Jul 24 22:17:32 2009 +0200
+++ b/src/HOL/Import/proof_kernel.ML	Fri Jul 24 22:31:27 2009 +0200
@@ -245,7 +245,8 @@
 
 fun prth th = writeln (PrintMode.setmp [] Display.string_of_thm_without_context th)
 fun prc ct = writeln (PrintMode.setmp [] Display.string_of_cterm ct)
-fun prin t = writeln (PrintMode.setmp [] (fn () => Syntax.string_of_term_global (OldGoals.the_context ()) t) ());
+fun prin t = writeln (PrintMode.setmp []
+  (fn () => Syntax.string_of_term (ML_Context.the_local_context ()) t) ());
 fun pth (HOLThm(ren,thm)) =
     let
         (*val _ = writeln "Renaming:"
isabelle