# HG changeset patch # User wenzelm # Date 1248467487 -7200 # Node ID 37800cb1d378d77e2df5d38b61bff07c920e3d12 # Parent 1c9c991e41c01a72e484ddad815d9e814790ace9 ML_Context.the_local_context; diff -r 1c9c991e41c0 -r 37800cb1d378 src/HOL/Import/proof_kernel.ML --- 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:"