# HG changeset patch
# User haftmann
# Date 1279868754 -7200
# Node ID 32f9b7a70fc0d1df83e1eb42ff314958b2f94f55
# Parent  1e4c5015a72e39ea5cb0a44f75425a27c14c98f1
repaired tool invocation

diff -r 1e4c5015a72e -r 32f9b7a70fc0 src/Tools/Code/lib/Tools/codegen
--- a/src/Tools/Code/lib/Tools/codegen	Thu Jul 22 18:08:39 2010 +0200
+++ b/src/Tools/Code/lib/Tools/codegen	Fri Jul 23 09:05:54 2010 +0200
@@ -58,7 +58,7 @@
   QND_CMD="reset"
 fi
 
-CTXT_CMD="ML_Context.eval_text_in (SOME (ProofContext.init_global (theory \"HOL\"))) false Position.none \"Code_Target.shell_command thyname cmd\";"
+CTXT_CMD="ML_Context.eval_text_in (SOME (ProofContext.init_global (Thy_Info.get_theory \"HOL\"))) false Position.none \"Code_Target.shell_command thyname cmd\";"
 
 FULL_CMD="Unsynchronized.$QND_CMD quick_and_dirty; val thyname = \"$THY\"; val cmd = \"$CODE_CMD\"; $CTXT_CMD"