--- a/src/Tools/Code/lib/Tools/codegen Mon Sep 27 08:47:23 2010 +0200
+++ b/src/Tools/Code/lib/Tools/codegen Mon Sep 27 09:36:18 2010 +0200
@@ -50,8 +50,8 @@
## invoke code generation
-FORMAL_CMD="Toplevel.program (fn () => use_thy thyname; ML_Context.eval_text_in \
- (SOME (ProofContext.init_global (Thy_Info.get_theory thyname))) false Position.none ml_cmd) \
+FORMAL_CMD="Toplevel.program (fn () => (use_thy thyname; ML_Context.eval_text_in \
+ (SOME (ProofContext.init_global (Thy_Info.get_theory thyname))) false Position.none ml_cmd)) \
handle _ => OS.Process.exit OS.Process.failure;"
ACTUAL_CMD="val thyname = \"$THYNAME\"; \