--- a/doc-src/antiquote_setup.ML Tue Aug 21 20:32:33 2012 +0200
+++ b/doc-src/antiquote_setup.ML Tue Aug 21 21:25:45 2012 +0200
@@ -135,7 +135,7 @@
val thy_file_setup =
Thy_Output.antiquotation @{binding thy_file} (Scan.lift Args.name)
(fn {context = ctxt, ...} =>
- fn name => (Thy_Load.check_thy Path.current name; Thy_Output.output ctxt [Pretty.str name]));
+ fn name => (Thy_Load.check_thy [] Path.current name; Thy_Output.output ctxt [Pretty.str name]));
(* Isabelle/Isar entities (with index) *)