--- a/src/Pure/Thy/present.ML Tue Sep 19 14:22:51 2017 +0200
+++ b/src/Pure/Thy/present.ML Tue Sep 19 14:26:25 2017 +0200
@@ -196,7 +196,7 @@
fun isabelle_document {verbose, purge} format name tags dir =
let
- val s = "isabelle document" ^ (if purge then " -c" else "") ^ " -o '" ^ format ^ "' \
+ val s = "isabelle document -o '" ^ format ^ "' \
\-n '" ^ name ^ "' -t '" ^ tags ^ "' " ^ File.bash_path dir ^ " 2>&1";
val doc_path = Path.appends [dir, Path.parent, Path.basic name |> Path.ext format];
val _ = if verbose then writeln s else ();
@@ -206,6 +206,7 @@
cat_error out ("Failed to build document " ^ quote (show_path doc_path))
else if verbose then writeln out
else ();
+ val _ = if purge andalso rc = 0 then Isabelle_System.rm_tree dir else ();
in doc_path end;